Копирование файла в Delphi

Система и файлы   21 Сентябрь 2010  Автор статьи: admin 

В этом небольшом уроке я покажу процедуру, при помощи которой можно программно копировать файл используя Delphi.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure 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 ) ;
      FileSetDate(T.Handle, FileGetDate(S.Handle));
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
end;

Научиться программировать

  • на Delphi

  • на Java

  • на C++