Copy File in Delphi

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure CopyFile(Src, Dst : String);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var Source, Dest : String;

begin

CopyFile(edit1.Text, edit2.Text);

end;

procedure TForm1.CopyFile(Src, Dst : String);

var Fs : File Of Byte; // filehandle source

Fd : File of Byte; // filehandle dest

Buffer : Byte;

begin

if FileExists(edit1.Text) then

Begin

AssignFile(fs, edit1.Text); // set handle file Src

{$I-}

Reset(Fs); // baca file source

{$I+}

// {$I-} berfungsi untuk mengeset operasi file readonly

// {$I+} berfungsi untuk mengeset operasi file readwrite

AssignFile(fd, edit2.Text); // set handle file Dest

Rewrite(Fd); // tulis ulang file dest

While not EOF(Fs) do

Begin

Read(fs, buffer); // baca file source (per byte)

write(fd, buffer); // tulis file dest (per byte)

end;

CloseFile(fd);

CloseFile(fs);

end

else Writeln('File source tidak ditemukan'); // kalo file belum ada tulis ulang

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.Close;

end;

end.