Cara menerapkan fungsi Auto Save dan Auto Load pada form delphi

Tags

Anda seorang programmer delphi? seorang programmer tentu membutuhkan banyak ide kreatif untuk membuat sebuah project, banyak sekali yang bisa dikembangkan dari aplikasi pembuat program yang satu ini, cara kerjanya yang simple dan mudah di mengerti membuat banyak sekali orang yang menyukai bahasa pemograman delphi 7 ini.

Disini saya akan berbagi cara menerapkan fungsi auto save dan auto load pada form delphi


Auto save atau menyimpan otomatis dan auto load atau mengambil otomatis sering sekali diterapkan pada project form login atau project untuk menyimpan data yang nantinya ketika kita memerlukannya lagi tidak perlu menulis ulang text yang dibutuhkan.

Salah satu contoh kita membuat aplikasi koneksi SSH, ketika mau melakukan koneksi ke server, kita diharuskan menulis:
1. Host ip
2. Port Proxy
3. Username
4. Password.
Nah untuk memudahkan semua itu agar ketika kita mau melakukan koneksi login lagi tidak harus menulis ulang, salah satu caranya ialah dengan menerapkan fungsi auto save dan auto load tadi.

Cara menerapkan fungsi auto save pada form delphi


Pertama silahkan buka project delphi sobat lalu buat form baru, masukan 4 buah edit.text dan 4 buah label seperti pada gambar dibawah ini

Cara menerapkan fungsi Auto Save dan Auto Load pada form delphi

Setelah form selesai dibuat, langkah selanjutnya memasukan interface uses IniFiles agar lebih jelas perhatikan gambar dibawah ini


Perhatikan tulisan yang di kolom merah, itu yang nantinya akan mengeksekusi setiap perintah yang akan kita terapkan pada project ini.

Selanjutnya silahkan dobel klik pada edit1.text lalu masukan coding berikut:

procedure TForm1.Edit1Change(Sender: TObject);varsave : TIniFile;beginsave := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Seting.ini');
with save do beginWriteString('SSH','host', Edit1.Text);
end;
end;

Perhatikan tulisan (Seting.ini), itu fungsinya untuk membuat nama configurations atau file config, anda bebas menggunakan nama apa saja asal berakhiran .ini.

Ulangi langkah di atas dengan mengklik edit2.text dan masukan coding berikut:

procedure TForm1.Edit2Change(Sender: TObject);
varsave : TIniFile;beginsave := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Seting.ini');
with save do beginWriteString('SSH','port', Edit2.Text);
end;
end;

Ulangi lagi langkah diatas dengan dobel klik pada edit3.text lalu masukan coding berikut:

procedure TForm1.Edit3Change(Sender: TObject);
varsave : TIniFile;beginsave := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Seting.ini');
with save do beginWriteString('SSH','username',Edit3.Text);
end;
end;

Ulangi lagi langkah diatas dengan dobel klik pada edit4.text lalu masukan coding berikut:

procedure TForm1.Edit4Change(Sender: TObject);varsave : TIniFile;beginsave := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Seting.ini');
with save do beginWriteString('SSH','password',Edit4.Text);
end;
end;

Dibagian password agar tidak terlihat huruf atau angka ketika kita mengisi password, maka kita harus merubah Password caracter di object inspector dengan menggantinya dari #0 menjadi *.
Setelah semua langkah dilakukan dengan benar maka fungsi auto save harusnya sudah berhasil diterapkan, kalau terjadi eror silahkan perhatikan lagi baik-baik semua keterangan diatas.

Setelah fungsi auto save sekarang kita lanjut ke fungsi auto load.

Cara menerapkan fungsi auto load pada form delphi


Untuk menerapkan fungsi auto load sedikit lebih mudah dibanding auto save, caranya cukup dobel klik pada form project delphi anda lalu masukan coding berikut:

procedure TForm1.FormCreate(Sender: TObject);
varload:TIniFile;beginload := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Seting.ini');
with load do begin
Edit1.Text := ReadString('SSH','host', 'Host ip');
Edit2.Text :=
ReadString('SSH','port', 'Port');
Edit3.Text := ReadString('SSH','username','Username');
Edit4.Text := ReadString('SSH','password','Password');
end;
end;

Cara kerja auto load ini yaitu, ketika form delphi kita buka maka otomatis akan me-load config dari file config.ini yang kita buat di form auto save tadi.

Perhatikan juga untuk memasukan coding sengaja saya beri tanda garis miring itulah coding yang harus dimasukan, karena yang tidak garis miring itu sudah ada pada defaultnya form delphi setiap kita melakukan dobel klik pada komponen-komponen tadi.

Cukup mudah bukan? itulah cara menerapkan fungsi auto save dan auto load pada project delphi, untuk download source code nya disini semoga bermanfaat.

Kalau ada yang kurang jelas silahkan bertanya pada kolom komentar.

Silahkan berkomentar dengan sopan dan tidak meninggalkan link aktip.

Terima Kasih.

EmoticonEmoticon