Select Page

Lazarus Free Pascal memiliki perintah untuk mengkopi file (Copy Files) seperti yang sering kita lakukan pada Windows Explorer. Ada beberapa cara melakuakan copy file diantaranya:

CopyFile

Fungsi Copyfile adalah menyalin file sumber ke lokasi file tujuan. Secara opsional, tetap mempertahankan timestamp file.

Unit yang digunakan adalah FileUtil.

// flags for copy

type

 TCopyFileFlag = (

   cffOverwriteFile,

   cffCreateDestDirectory,

   cffPreserveTime

   );

 TCopyFileFlags = set of TCopyFileFlag;

function CopyFile(const SrcFilename, DestFilename: string): boolean;

function CopyFile(const SrcFilename, DestFilename: string; PreserveTime: boolean): boolean;

function CopyFile(const SrcFilename, DestFilename: string; Flags: TCopyFileFlags=[cffOverwriteFile]): boolean;

Program Copy File

Membuat program Copy File atau menyalin suatu file dari sebuah folder sumber ke folder tujuan dapat dengan mudah dibuat seperti yang saya perlihatkan dibawah.

procedure TForm1.Button3Click(Sender: TObject);
begin
  //Copy file
  if CopyFile(Edit1.Text, Edit2.Text + '\' + Edit3.Text) then
    ShowMessage('File sumber: ' + Edit1.Text + 'Telah disalin ke ' +
    Edit2.Text + '\' + Edit3.Text);
end; 

Fungsi CopyFile() memberikan return boolean, jika proses menyalin file berhasil akan memberikan nilai true. Detail source code program copyfile bisa diunduh disini.

Selama mencoba