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.

Demikianlah Artikel tentang Cara Buat Save Button Delphi 7

Sekian dulu artikel tentang Cara Buat Save Button Delphi 7, mudah - mudahan bisa memberi manfaat untuk anda semua. jika anda masih binggung atau belum jelas tentang artikel yang saya sampaikan anda bisa berkomentar dan jika anda juga ingin requset tentang beberapa ( Akun SSH Premium,inject PC,Config Http injector,Config KPN,config Eproxy.config Open VPN dan tips dan trick ). di kolom komentar. jika artikel yang saya berikan bermanfaat dan berguna anda juga bisa share artikel saya ke teman teman anda semua ( berbagi itu indah )

• Tweet
• Share
• Share
• Share
• Share

About Admin

Halo Sobat Blogger, Saya Hanyalah Seorang Blogger Pemula dan Saya Berharap Anda dan Saya Bisa Berhasil dan Sukses Kedepannya. Selamat Datang Teman Teman Dan Terima Kasih Sudah Berkunjung Diblog Website kami.

Related Post