Program untuk Membuat Bentuk Diamond pada aplikasi Delphi
Ketentuan program: Pertama membuat judul program “Mencetak Diamond 1/2” Tahap selanjutnya yaitu membuat nama input beserta keterangan dengan caption “Masukkan angka” Lalu, membuat listbox untuk berfungsi menampilkan hasil inputan Terakhir, membuat 3 button dengan caption “Check”, ”Clear”, ”Exit”. Tampilan Form: Listing program berdasarkan obyek: Button Check procedure TForm1.Button1Click(Sender: TObject); var a,b,c: integer; bintang : string; begin bintang := ‘*’; b := StrToInt (Edit1.Text); for a:= 0 to b do begin ListBox1.Items.Add (bintang); bintang := bintang + ‘*’; end; for a:= b downto 0 do begin bintang := ”; for c:= 0 to a do begin bintang := bintang + ‘*’; end; ListBox1.Items.Add (bintang); end; end; Button Clear procedure TForm1.Button2Click(Sender: TObject); begin ListBox1.Clear; Edit1.Clear; end; Button Exit procedure TForm1.Button3Click(Sender: TObject); begin Application.Terminate; end; end. Output programnya nanti akan seperti berikut: Selan