Potrebna Pomoc od poznavaoca Delphi-ja

  • Začetnik teme rumplstincki
  • Datum pokretanja
R

rumplstincki

Gost
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!
 
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 :)
 
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. :lol:
i da, mozda ovo nece da proradi iz prve jer iz glave kucao (ovo bi trebao da stavim za signature) :)
 

Back
Top