lagi lagi saya harus minta pencerahan dari temen2 disini :) saya membuat form konfigurasi untung setting program client-server, di program client nya saya buat form konfigurasi setting untuk menentukan IP server... saya gunakan metode memakai file.txt untuk menampung IP servernya...tapi yg saya bingung gmna caranya supaya isi dari file.txt (ip server) bisa diganti melalui form setting yang saya buat... listing yg saya buat baru bisa menampilkan isi file.txt nya ajah, tapi pas diganti isinya blom bisa... mohon bantuannya :)

//prosedur saat form konfigurasi dibuka
procedure Tf_konfigurasi.FormCreate(Sender: TObject);
var f1:TextFile;  //membuat variabel untuk sintak textfile
    ip_server:string; //membuat variabel untuk ip server
begin
  AssignFile(f1, 'konfigurasi_ip_server.txt');  //menghubungkan ke textfile
  Reset(f1);  //refresh textfile
  Readln(f1, ip_server);  //baca isi text file menjadi value untuk variabel ip_server
  in_ipserver.Text := ip_server;  //tampilkan value variabel ip_server di komponen ip_server
end;
//prosedur tombol ganti ip server
procedure Tf_konfigurasi.bkonekClick(Sender: TObject);
var f1:TextFile;
    ip_server:string;
begin
  AssignFile(f1, 'konfigurasi_ip_server.txt');
  Reset(f1);
  Readln(f1, ip_server);
end;

pakai .ini file mas lebih mudah misal jadinya setting.ini thx

@denmasdanang: pakai .ini file mas lebih mudah misal jadinya setting.ini thx

waduh...saya newbie mas...maksudnya gmn ya?

Iya nih.. pakai inifiles misal gini /////////// var fmSetup: TfmSetup; implementation {$R *.DFM} uses inifiles; procedure TfmSetup.btnsaveClick(Sender: TObject); var setting: TIniFile; begin setting:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'setting.ini'); with MailIni do begin WriteString('setting', 'ServerName', edtserver.text); WriteString('setting', 'password', edtpass.Text); WriteString('setting', 'user', edtuser.Text); ShowMessage('Simpan konfigurasi Sukses!'); end; setting.Free; end; atau silahkan download disini http://www.mediafire.com/download.php?thokbydb0ybmpal

@musafir: Iya nih.. pakai inifiles misal gini /////////// var fmSetup: TfmSetup; implementation {$R *.DFM} uses inifiles; procedure TfmSetup.btnsaveClick(Sender: TObject); var setting: TIniFile; begin setting:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'setting.ini'); with MailIni do begin WriteString('setting', 'ServerName', edtserver.text); WriteString('setting', 'password', edtpass.Text); WriteString('setting', 'user', edtuser.Text); ShowMessage('Simpan konfigurasi Sukses!'); end; setting.Free; end; atau silahkan download disini http://www.mediafire.com/download.php?thokbydb0ybmpal

mas musafir...itu jadinya buat file ini...terus ada bentuk fisiknya?? (abis kita buat file ini dari script, nanti ada filenya gga??) okeeh..aku coba dulu :) thx alot

Ada.. extension .ini.. kalau *.ini sangat cocok untu media simpan data setting.. sangat fleksibel kalau yg di atas mungkin seperti ini jadinya : [setting] servername=edtserver.text password=edtpass.text user=edtuser.text

@musafir: Ada.. extension .ini.. kalau *.ini sangat cocok untu media simpan data setting.. sangat fleksibel kalau yg di atas mungkin seperti ini jadinya : [setting] servername=edtserver.text password=edtpass.text user=edtuser.text

ooohh..gitu... i will try it...!!! trima kasih lagi mas musafir :)

Gimana sudah dicoba? atau coba tengok di sini : kita bagi-bagi pengetahuan http://viri-86.blogspot.com/2012/04/save-ini-delphi.html

:D :D :D sangat jelas mas musafir... its works... :D