Potrebna Pomoc od poznavaoca Delphi-ja
Prikazujem rezultate 1 do 6 od 6

Tema: Potrebna Pomoc od poznavaoca Delphi-ja

  1. #1
    rumplstincki
    Guest

    Podrazumevano Potrebna Pomoc od poznavaoca Delphi-ja

    Vec danoma pokusavam da napravim proram koji bi izmedju ostalog kopirao fajl iz jednog direktorijuma u drugi (kao neki od fajlmenadzera). U helpu nema nikakvog primera za kopiranje pa vas molim da mi pomognete, da napisete primer koji bi recimo sa 'c:/delphi/slova.txt' ovaj fajl kopirao u 'c:/delphi2'.

    Pomozite mi!



  2. #2
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

    imas funkciju CopyFile (logicno, zar ne) ciji su ti parametri Source i Destination tipa PChar,a treci parametar ti je FailIfExists tipa boolean.
    PChar ces dobiti tako sto stavis PChar(s), gde je s string. ovo PChar nije obicna funkcija, vec je operator, al nema veze to nije bitno, evo ti Example:

    1) CopyFile('c:\autoexec.bat', 'd:\temp\temp.txt', True);

    2) S := 'c:\autoexec.bat';
    D := 'd:\temp\temp.txt';
    CopyFile(PChar(S), PChar(D), False);

    ovaj drugi pristup ti je bitan kad imas promenljive za imena fajlova, logicno.

    Ovo ti iz glave kucam, mislim da je tako, probaj, pa ako ne ti pitaj opet

  3. #3
    rumplstincki
    Guest

    Podrazumevano

    A kako je moguce presnimiti fajl samo sa jednim djelom naziva? Kao na primjer sve fajlove sa prvim slovom 'a'!

  4. #4
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

    za to ti treba malo komplikovanija procedura. kod sledi (konkretno za ono sto si reko):

    procedure Copy;
    var
    FindResult: integer;
    SearchRec : TSearchRec;
    begin
    FindResult := FindFirst('neka putanja' + 'a*.*', faAnyFile - faDirectory, SearchRec);
    while FindResult = 0 do
    begin
    FindResult := FindNext(SearchRec);
    CopyFile(PChar(SearchRec.FileName), 'neka destinacija', False);
    end;
    FindClose(SearchRec);
    end;

    ako je nesto nejasno ti pitaj.
    i da, mozda ovo nece da proradi iz prve jer iz glave kucao (ovo bi trebao da stavim za signature)

  5. #5
    rumplstincki
    Guest

    Podrazumevano

    Uz malu korekciju ovo gore radi i hvala ti na pomoci.
    Ono sto bi sada trazio od tebe je neka literatura na koju me mozes uputiti, sajt ili sta vec odakle dolazis ovog iskazanog znanja kako bi mogao nesto i sam da naucim!
    HVALA!

  6. #6
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

    to se vremenom uci, ali nije lose da krenes sa www.delphi3000.com i torry.net. doduse, prvo treba da krenes da radis pa kad se zakocis onda da ides tamo jer kolko ja znam nema nista za step-by-step, nego samo resavanje konkretnih taskova. a od knjiga mozda delphi biblija ili tako nesto...ne znam stvarno.

Slične teme

  1. Delphi program - potrebna pomoć....
    Autor Ilinoida u forumu Programiranje
    Odgovora: 1
    Poslednja poruka: 04.02.2008., 21:35
  2. Programeri Potrebna Aplikacija - C++ Delphi
    Autor doca86 u forumu Programiranje
    Odgovora: 4
    Poslednja poruka: 08.11.2005., 18:05
  3. Pomoc za Delphi
    Autor SrdjanNS u forumu Programiranje
    Odgovora: 3
    Poslednja poruka: 10.09.2004., 19:58
  4. Pomoc oko delphi-a
    Autor UnDerGr0unD^SeCuRitY u forumu Programiranje
    Odgovora: 77
    Poslednja poruka: 20.03.2004., 20:48

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •