Cara Membuat Open & Save file di Delphi

Share on :

Bagaimana cara membuat Open & Save file di Delphi???
File txt biasanya digunakan sebagai konfigurasi dari aplikasi desktop, file tsb sengaja dibuat agar aplikasi dapat berjalan seperti settingan terakhirnya.Sesuaisama tema kali ini,Silahkan di simak :

Siapkan project dengan tambahan :

1. satu buah button
2. satu buah opendialog(ada pada tab Dialogs)
3. satu buah savedialog(ada pada tab Dialogs)

Lalu Ketikan listing dibawah ini pada event button1 click

procedure TForm1.Button1Click(Sender: TObject);
var

  F1, F2: TextFile;
  Ch: Char;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      while not Eof(F1) do
      begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      writeln(f2,’add new data’);
      CloseFile(F2);
    end;
    CloseFile(F1);
  end
end;