Mega Code Archive

 

Categories / Delphi / Files

 

Programdan dosya kopyalama islemi

rocedure FileCopy(Const SourceFileName, TargetFileName: String ); Var S, T: TFileStream; Begin S := TFileStream.Create(sourcefilename, fmOpenRead ); try T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate); try T.CopyFrom(S, S.Size ) ; finally T.Free; end; finally S.Free; end; end;