Советы по Delphi
Dos Copy через TFileStream
| Var S,T: TFileStream; BeginS:=TFileStream.Create( sourcefilename, fmOpenRead );tryT:=TFileStream.Create( targetfilename, fmOpenWrite );tryT.CopyFrom(S, S.Size ) ;finallyT.Free;end;finallyS.Free;end;End; |
| Var S,T: TFileStream; BeginS:=TFileStream.Create( sourcefilename, fmOpenRead );tryT:=TFileStream.Create( targetfilename, fmOpenWrite );tryT.CopyFrom(S, S.Size ) ;finallyT.Free;end;finallyS.Free;end;End; |