Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Logika Pengulangan pada Delphi #34

Mie ayam itu adalah mie + ayam

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 :

pengulangan pada delphi
form

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

Related Articles

2 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button