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 :Lalu Ketikan listing dibawah ini pada event button1 click
- satu buah button
- satu buah opendialog(ada pada tab Dialogs)
- satu buah savedialog(ada pada tab Dialogs)
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 Mencoba
gan, gimana cara mengganti database suatu aplikasi yang kita buat dengan delphi7?
BalasHapusmisalkan, aplikasi XX menggunakan database microsoft access, nama DB att2000 tapi saya mau menggantinya dengan DB attXX...
skripnya gmana tu gan, mohon pencerahannya....