Cara Buat Save Button Delphi 7

Screenshot

setelah ikut langkah yg sebelum ini disini

langkah pertama bukak delphi

lansung saja tambah

1button

click 2xkali pada button dan letak code ini :

procedure TForm1.btn2Click(Sender: TObject);

var

MyIni: Tinifile;

begin

MyIni := TIniFile.Create(GetCurrentDir+'\Data.txt');

myini.WriteString('Configurations', 'Username', edt1.Text);

myini.WriteString('Configurations', 'Password', edt2.Text);

Myini.WriteBool('Configurations', 'Proxifier', rb1.Checked);

Myini.WriteString('Configurations', 'Server', cbb1.Text);

Myini.WriteString('Configurations', 'Host', cbb2.Text);

btn2.Enabled:=False;

end;

dan setelah sudah di atas klik pada Form 2xkali dan letak code ini :

procedure TForm1.FormCreate(Sender: TObject);

var

MyIni: Tinifile;

begin

myini := tinifile.Create(Getcurrentdir+'\Data.txt');

edt1.Text:=myini.ReadString('Configurations', 'Username', edt1.Text);

edt2.Text:=myini.ReadString('Configurations', 'Password', edt2.Text);

rb1.Checked:=Myini.ReadBool('Configurations', 'Proxifier', rb1.Checked);

cbb1.Text:=Myini.ReadString('Configurations', 'Server', cbb1.Text);

cbb2.Text:=Myini.ReadString('Configurations', 'Host', cbb2.Text);

end;

siap, sekian. sila check kembali jika ada error.