Looping Dengan While..Do, For..Next dan Repeat..Until Pada Delphi7

Buat Form dan atur propertiesnya seperti gambar..




Ketikkan listing program berikut :

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

procedure TForm1.btnClearClick(Sender: TObject);
begin
lstlooping.Clear;
end;

procedure TForm1.btnTestClick(Sender: TObject);
begin
for x:= 1 to 5 do
lstlooping.items.add(inttostr(x));
end;

procedure TForm1.btnWhileClick(Sender: TObject);
begin
x:=1;
while (x<=5) do begin lstlooping.Items.Add(inttostr(x)); x:=x+1; end; end; procedure TForm1.btnRepeatClick(Sender: TObject); begin x:=1; Repeat lstlooping.Items.add(inttostr(x)); x:=x+1; Until x>5;
end;

end.

Kalau sdh slesai, coba di-run... dan hasilnya sebagai berikut :