Logika Pengulangan pada Delphi #34

Andrypein.net : Nah mulai sekarang kita Delphi2an lagi kawan2, setelah kemarin pascal2an tentang pengulangan, sekarang kita praktekan pengulangan pada delphi nya.

Pengulangan pada delphi kali ini saya contohkan tanpa menggunakan input, biasa saja langsung dibuka delphinya dan bentuk form seperti ini :

Tambahkan satu komponen TListBox pada pallete standard.

Sebelumnya tulis variabel a b c dibawah var Form1:TForm1;

var Form1 : TForm1; 
   a,b,c : integer;

Yok lanjut kodingnya untuk button for terlebih dahulu:

Procedure TForm1.Button1Click(Sender: TObject);
begin
  listbox1.Items.Clear;
  for a:=1 to 10 do
    begin
      listbox1.Items.Add(IntToStr(a));
    end;
end;    

next untuk button while :

Procedure TForm1.Button2Click(Sender: TObject);
begin
  listbox1.Items.Clear;
  b:=2;
  while b<=20 do
    begin
      listbox1.Items.Add(IntToStr(b));
      b:=b+2;
    end;
end;    

lanjut untuk button repeat :

Procedure TForm1.Button3Click(Sender: TObject);
begin
  c:=1;
  listbox1.Items.Clear;
  repeat
    listbox1.Items.Add(IntToStr(c));
    c:=c+2;
  until c>=20;    
end;    

last untuk button clear :

Procedure TForm1.Button4Click(Sender: TObject);
begin
  listbox1.Items.Clear;   
end;        

F9 dude dan lihat hasilnya

*AFK