Cara membuat tombol Save dan Load untuk project PLINK di Delphi 7

Assalamu'alaikum wr.wb
Pada postingan kali ini saya akan menjelaskan bagaimana Cara membuat tombol Save dan Load Project PLINK di Delphi 7.
Ok langsung saja ke TKP sob........!!!!

• Pertama, Buka Software Delphi 7 anda
• Kedua, Buka Project PLINK agan...
• Ketiga, kita tambahkan " USES " seperti beikut : , inifiles ;
• KeEmpat, kita tambahkan : 

 1 (satu)  komponen " Main Menu "
1 (satu) komponen " SaveDialog "
1 (satu) komponen " Open Dialog "

• KeLima, kemudian anda tambahkan menu Save dan Load di komponen Main menu..

contoh seperti gambar di bawah ini :

• KeEnam, kita masukan code di bawah ini ke menu Save pada komponen " Main Menu " :

var
MyIni: Tinifile;
namafile : string;
begin
with SaveDialog1 do begin
InitialDir:=ExtractFilePath(Application.ExeName);
Filter:='|*.Fien'; //format file yg di save
end;
if SaveDialog1.Execute then begin
namafile := SaveDialog1.FileName;
 if Pos('.Fien',namafile) = 0 then namafile := namafile + '.Fien';
myINI := TINIFile.Create(namafile);
Myini.WriteString('Configurations', 'Host', Edit1.Text);
Myini.WriteString('Configurations', 'Port', Edit2.Text);
myini.WriteString('Configurations', 'Username', Edit3.Text);
myini.WriteString('Configurations', 'Password', Edit4.Text);
Myini.WriteBool('Configurations', 'Use Proxy', CheckBox1.Checked);
Myini.WriteString('Configurations', 'ProxyHost', Edit5.Text);
Myini.WriteString('Configurations', 'ProxyPort', Edit6.Text);
myINI.Free;
MessageBox(Self.Handle, 'Config Saved !!', 'By Newbie', MB_OK + MB_ICONINFORMATION);
end;

jadinya seperti gambar di bawah ini gan :

kemudian kita masukan code di bawah ini  ke menu Load pada komponen " Main Menu " :

var myINI : TINIFile;
namafile : string;
begin
with OpenDialog1 do begin
InitialDir:=ExtractFilePath(Application.ExeName);
Filter:='*|*.Fien'; //format file yg bisa di load
end;
if OpenDialog1.Execute then begin
namafile := OpenDialog1.FileName;
myINI := TINIFile.Create(namafile);
Edit1.Text:=Myini.ReadString('Configurations', 'Host', Edit1.Text);
Edit2.Text:=Myini.ReadString('Configurations', 'Port', Edit2.Text);
Edit3.Text:=myini.ReadString('Configurations', 'Username', Edit3.Text);
Edit4.Text:=myini.ReadString('Configurations', 'Password', Edit4.Text);
CheckBox1.Checked:=Myini.ReadBool('Configurations', 'Use Proxy', CheckBox1.Checked);
Edit5.Text:=Myini.ReadString('Configurations', 'ProxyHost', Edit5.Text);
Edit6.Text:=Myini.ReadString('Configurations', 'ProxyPort', Edit6.Text);
myINI.Free;
end;

jadinya seperti gambar di bawah ini gan :

yg terakhir tinggal agan test deh..project-nya...

ok gan..cukup sekian dari postingan kali ini..
jika da kesalahan tolong di maafkan gan..

Wassalamu'alaikum Wr.Wb