Fungsi Perulangan Menggunakan Delphi7

.Kali ini saya akan membuat sebuah aplikasi sederhana menggunakan bahasa pemrograman borland delphi7...
.Langsung saja ya.! tanpa banyak basa basi.. hehe ;-)
.Ok., Mari kita simak bersama...
.seperti ini hasil tampilannya saat Run.:

.Dibawah ini adalah kodingnya sobat.! kalau masalah buat formnya pasti sudah pada tau kan.?

.Koding untuk tombol For To Do

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

 begin

    memo1.Clear;

      for i:=1 to 20 do

   Memo1.Lines.Add(FloatToStr(i));

end;

.Koding untuk tombol For DownTo Do

procedure TForm1.Button2Click(Sender: TObject);

var i:integer;

begin

  memo1.Clear;

    for i:=20 downto 1 do

  Memo1.Lines.Add(FloatToStr(i));

end;

.Koding untuk tombol Repeat Until

procedure TForm1.Button3Click(Sender: TObject);

var i:integer;

begin

     memo1.Clear;

     i:=0;

     while i<20 do

   begin

      Memo1.Lines.Add(FloatToStr(i));

      i:=i+1;

   end;

end;

.Koding untuk tombol While Do

procedure TForm1.Button4Click(Sender: TObject);

var i:integer;

begin

   memo1.Clear;

   i:=0;

   repeat

   i:=i+2;

   Memo1.Lines.Add(FloatToStr(i));

   until i=20;

  end;

end.

..::seLamat Mencoba::..