Tutorial Looping/Perulangan pada Delphi

Disini saya akan membagikan tutorial program looping/perulangan pada Delphi. Sebelum ke latihan program saya akan menjelaskan terlebih dahulu apa sih itu Looping/Perulangan?
Jadi, Looping/Perulangan adalah sebuah algoritma/syntax yang berfungsi untuk mengulang suatu nilai, perulangan akan berakhir jika nilai tersebut sudah tidak memenuhi syarat yang ditentukan.

Contoh Program Looping 

*Buka aplikasi Delphi (disini saya menggunakan Delphi XE3)
*Setelah itu buat project baru dengan meng-klik File|New|VCL Form Application-Delphi
*Lalu desain formnya seperti berikut

 Untuk lebih jelasnya apa saja komponen yang digunakan silahkan simak tabel berikut:

Komponen	Properti	Nilai
Form1	Caption	Looping
GroupBox1	Caption	Pilih Salah Satu
Button1	Caption	For To Do
Button2	Caption	Repeat Until
Button3	Caption	While Do
GroupBox2	Caption	Output
ListBox1	-	-
Button4	Caption	Bersihkan

*Setelah mendesain form selesai langkah selanjutnya adalah coding ....
*Pertama dobel klik Button1 'For To Do' lalu masukan syntax dibawah ini

var a,x,v:String;
    y,z:Integer;
begin
a:=InputBox('Inputkan Banyak Data','Banyak Data','');
y:=StrToInt(a);
for z := 1 to y do
  begin
    v:=IntToStr(z);
    x:=InputBox('Masukan Nama','Nama Ke-'+v,'');
    ListBox1.Items.Add('Nama Ke-'+v+'= '+x);
  end;
  ListBox1.Items.Add('---------------------------------------');
end;

*Kedua dobel klik Button2 'Repeat Until' lalu masukan syntax dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
var a,x,b:String;
    z,y:Integer;
begin
a:=InputBox('Inputkan Jumlah Data','Jumlah Data','');
z:=StrToInt(a);
y:=1;
Repeat
  b:=IntToStr(y);
  x:=InputBox('Inputkan Data','Nama Ke-'+b,'');
  ListBox1.Items.Add('Nama Ke-'+b+'= '+x);
  y:=y+1;
Until y>z;
ListBox1.Items.Add('---------------------------------------');
end;

*Ketiga dobel klik Button3 'While Do' lalu masukan syntax berikut

procedure TForm1.Button3Click(Sender: TObject);
var a,x,b:String;
    z,y:Integer;
begin
a:=InputBox('Inputkan Jumlah Data','Jumlah Data','');
z:=StrToInt(a);
y:=1;
while y<=z do
begin
  b:=IntToStr(y);
  x:=InputBox('Masukan Nama','Nama Ke-'+b,'');
  ListBox1.Items.Add('Nama Ke-'+b+'= '+x);
  y:=y+1;
end;
ListBox1.Items.Add('---------------------------------------');
end;

*Terakhir dobel klik Button4 'Bersihkan' lalu masukan syntax berikut 'ListBox1.Clear;' (tanpa tanda petik)
*Lalu jalankan programnya dengan menekan tombol Shift+CTRL+F9 ... dan lihat hasilnya ....