On Kamis, 15 Desember 2011
1. Buat sebuah project baru dengan sebuah form
2. Tambahkan satu buah goupBox dan tambahkan didalamnya lima komponen Label, dan ubah captionnya masing-masing menjadi NIM, Nama Mahasiswa, Alamat, Nama Ayah, dan Nama Ibu
3. Tambahkan lima komponen edit kedalam groupbox dan sesuaikan dengan label yang ada
4. Tambah dua buah Buah BitBtn kedalam groupBox dan ubah captionnya menjadi “&Baru” dan “&Tampilkan”
5. Tambahkan 1 buah GroupBox dan didalamnya tambahkan 1 komponen memo
6. Tambahkan 3 komponen bitbtn dan ubah captionnya menjadi “Save”, “Load From File”, “Simpan ke File”.
7. Tambahkan 1 komponen bitbtn dan ubah property Kindnya menjadi bkclose.
8. Dan terakhir tambahkan 1 komponen SaveDialog dan komponen open dialog.
9. Klik dua kali bitbtn Baru dan ketikkan:
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
edit4.Text :='';
edit5.Text :='';
edit1.SetFocus;
10. Klik dua kali bitbtn Tampilkan dan ketikkan:
memo1.Lines.Add(' ## Data Pribadi ##');
memo1.Lines.Add('-----------------------------------');
memo1.Lines.Add( ' N I M : ' + edit1.Text );
memo1.Lines.Add( ' Nama : ' + edit2.Text );
memo1.Lines.Add( ' Alamat : ' + edit3.Text );
memo1.Lines.Add( ' Nama Ayah : ' + edit4.Text );
memo1.Lines.Add( ' Nama Ibu : ' + edit5.Text );
memo1.Lines.Add('-----------------------------------');
memo1.Lines.Add('');
11. Klik dua kali komponen bitbtn Save dan ketikkan :
memo1.Lines.SaveToFile(opendialog1.FileName);
12. Klik dua kali bitbtn Load From File dan ketikkan:
if opendialog1.Execute then begin
memo1.Lines.LoadFromFile(OpenDialog1.FileName );
end;
13. Klik dua kali bitbtn Simpan ke File dan ketikkan:
with memo1.Lines do begin
chgdialogExt('.txt',1);
if savedialog1.Execute then begin
savetofile(savedialog1.FileName);
end;
end;
dan tambahkan procedur berikut pada bagian sebelum begin
procedure ChgDialogExt(Vext:string; vFilterIdx:Integer);
begin
SaveDialog1.DefaultExt:=vExt;
SaveDialog1.FilterIndex :=vFilterIdx;
end;
14. Simpan project dan jalankan
