Menciptakan Save Dan Load Data Di Delphi

Cara Membuat Save dan Load Delphi

Nah,kali kita akan berguru Delphi lagi kali ini mengenai bagaimana caranya menciptakan fitur save dan load dalam aplikasi yang kita buat.Save dan load akan sangat anda perlukan jikalau dalam aplikasi anda terdapat banyak data yang harus di isi sehingga pengguna hanya perlu mengisi data ketika memakai aplikasi pertama kali dan mereka tidak perlu mengisi data lagi ketika ingin menggunakannya lagi.Sebelum kita ke tutorial ada baiknya kita tahu cara kerja save dan load yang akan kita buat

Prinsip kerja save dan load yang akan aku terangkan:

1) Pengguna mengisikan data
2) Pengguna menyimpan data dan memberinya nama dengan tombol simpan
3) Pengguna memakai tombol load untuk memuat data yang telah dibentuk sebelumnya

Baca juga : Cara Tampilkan Ip kita di Delphi

Oh iya tidak usah lama-lama eksklusif saja yah tutorialnya 

1) Buka software Delphi anda sanggup pake versi apa saja Delphi nya kok alasannya prinsip nya tidak terlalu jauh berbeda

2) Buka projek usang yang ingin anda tambahkan save dan load.Tapi alasannya aku tidak punya proyek aplikasi yang sudah usang maka di sini aku buat yang gres saja.Ini hanya untuk contoh

3) Buat 2 Button yakni tombol untuk  Save dan load tambahkan juga SaveDialog dan OpenDialog di Pallete Dialogs kalau ingin lebih terang lihat gambar di bawah

4) Tambahkan inifiles pada Uses

5) Double-click tombol Save dan untuk instruksi simpannya kurang lebih mengikuti menyerupai di bawah.Oh,iya hapus dulu begin di procedure buttonclick kalau mau paste instruksi ini

Var Iniku:Tinifile; Namafile:string; Begin With savedialog1 do begin InitialDir:=ExtractFilePath(Application.ExeName); Filter := '/*.cth';// ini format file sanggup anda ganti sesuka hati End; If SaveDialog1.Execute then Begin Namafile:= SaveDialog1.FileName; If Pos('.cth',namafile) = 0 then Namafile:= namafile+ '.cth'; Iniku:=TINIFile.Create(namafile); Iniku.WriteString('Pengaturan','Username',Edit1.Text); Iniku.WriteString('Pengaturan','Password',Edit2.Text);// ini teladan save untuk data string Iniku.WriteBool('Pengaturan','Tampilkan Password',CheckBox1.Checked);// ini teladan save untuk data Boolean Iniku.Free; end;


6)Double-click tombol Load dan kodingnya menyerupai di bawah sama menyerupai tadi hapus dulu begin di procedure clicknya kalau mau paste instruksi ini

Var Iniku:Tinifile; Namafile:string; Begin With Opendialog1 do begin InitialDir:=ExtractFilePath(Application.ExeName); Filter := '/*.cth';//ini format file sanggup anda ganti sesuka hati End; If OpenDialog1.Execute then Begin Namafile:= OpenDialog1.FileName; Iniku:=TINIFile.Create(namafile); Edit1.Text:=Iniku.ReadString('Pengaturan','Username',Edit1.Text); Edit2.Text:=Iniku.ReadString('Pengaturan','Password',Edit2.Text);// ini teladan load untuk data string CheckBox1.Checked:=Iniku.ReadBool('Pengaturan','Tampilkan Password',CheckBox1.Checked);// ini teladan load untuk data Boolean Iniku.Free; end;
7) Selesai.Bisa anda run(F9) aplikasinya kalau kodenya benar seharusnya sanggup dijalankan menyerupai di bawah.Kalau ada yang salah,liat di bawah errornya apa kemudian benerin barangkali ada kodenya yang salah tulis mungkin

8) Ini teladan penampakan file confignya kalau anda mau liat

Oke,itu dulu mengenai cara menciptakan fitur save dan load delphi.Oh,iya selamat tahun gres 2019 bagi kalian semua supaya panjang umur, diberi kelancaran rezeki,pokoknya kalian sanggup yang terbaik di 2019 nanti amiin..