Membuat Save dan Load Data di Delphi

Cara Membuat Save dan Load Delphi

Nah,kali kita akan belajar Delphi lagi kali ini mengenai bagaimana caranya membuat fitur save dan load dalam aplikasi yang kita buat.Save dan load akan sangat anda perlukan jika dalam aplikasi anda terdapat banyak data yang harus di isi sehingga pengguna hanya perlu mengisi data saat menggunakan 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 saya terangkan:

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

Baca juga : Cara Tampilkan Ip kita di Delphi

Oh iya tidak usah lama-lama langsung saja yah tutorialnya 

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

2) Buka projek lama yang ingin anda tambahkan save dan load.Tapi karena saya tidak punya proyek aplikasi yang sudah lama maka di sini saya buat yang baru saja.Ini hanya untuk contoh

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

4) Tambahkan inifiles pada Uses

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

Var Iniku:Tinifile; Namafile:string; Begin With savedialog1 do begin InitialDir:=ExtractFilePath(Application.ExeName); Filter := '/*.cth';// ini format file bisa 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 contoh save untuk data string Iniku.WriteBool('Pengaturan','Tampilkan Password',CheckBox1.Checked);// ini contoh save untuk data Boolean Iniku.Free; end;


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

Var Iniku:Tinifile; Namafile:string; Begin With Opendialog1 do begin InitialDir:=ExtractFilePath(Application.ExeName); Filter := '/*.cth';//ini format file bisa 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 contoh load untuk data string CheckBox1.Checked:=Iniku.ReadBool('Pengaturan','Tampilkan Password',CheckBox1.Checked);// ini contoh load untuk data Boolean Iniku.Free; end;
7) Selesai.Bisa anda run(F9) aplikasinya kalau kodenya benar seharusnya bisa dijalankan seperti di bawah.Kalau ada yang salah,liat di bawah errornya apa lalu benerin barangkali ada kodenya yang salah tulis mungkin

8) Ini contoh penampakan file confignya kalau anda mau liat

Oke,itu dulu mengenai cara membuat fitur save dan load delphi.Oh,iya selamat tahun baru 2019 bagi kalian semua semoga panjang umur, diberi kelancaran rezeki,pokoknya kalian dapat yang terbaik di 2019 nanti amiin..