Cara Membuat Segitiga Angka dengan Delphi 7

Cara Membuat Segitiga Angka dengan Delphi 7

Kalau biasanya membuat segitiga dengan C++ kali ini kita coba menggunakan Borland Delphi 7, dengan menggunakan For to Do. jika sobat ingin mempraktekkannya dengan Delphi 7, Silahkan dicoba trik berikut ini.

Segitiga Angka dengan Delphi 7

Langkah-langkah membuatnya, silahkan sobat desain terlebih dahulu formnya (boleh sama atau sobat juga bisa membuat desainnya sesuai keinginan).

Properties (pada Object Inspector):

Button
Button1	Name	btstart
	Caption	Exit
Button2	Name	btexit
	Caption	Exit
ListBox	Name	ListBox1

Berikut perintah programnya :
Button1 (Start)

procedure TForm1.btstartClick(Sender: TObject);
var
x,y : integer;
deretangka:string;
begin
listbox1.Items .Clear ;
for y:=1 to 9 do begin
deretangka:='';
for x:=1 to y do begin
deretangka := deretangka + inttostr(x);
//deretangka := deretangka + inttostr(y);
end;
listbox1.Items .add (deretangka);
end;

end;

Button2 (Exit)

procedure TForm1.btexitClick(Sender: TObject);begin
application.Terminate ;
end;