Dos Copy через TFileStream

Written on . Posted in [Delphi] Стандартные классы, VCL

Var

S,T: TFileStream;

Begin
S:=TFileStream.Create( sourcefilename, fmOpenRead );
try
T:=TFileStream.Create( targetfilename, fmOpenWrite );
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end;
finally
S.Free;
end;
End;

форум микроконтроллеры