Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : Cara Membuat Open & Save file di Delphi ...

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;



Selamat MencobaThumbs up









Tagg :

1 Reply :

  1. gan, gimana cara mengganti database suatu aplikasi yang kita buat dengan delphi7?
    misalkan, aplikasi XX menggunakan database microsoft access, nama DB att2000 tapi saya mau menggantinya dengan DB attXX...
    skripnya gmana tu gan, mohon pencerahannya....

    BalasHapus

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.