Contoh Program Delphi: Membuat Perulangan (looping) Pada Delphi

Hai sahabat, gimana kabarnya. Semoga keberkahan senantiasa menyertai Anda. Kali ini saya ingin membahas konsep perulangan di Delphi 7. Jenis metode perulangan yang akan dibahasa adalah perulangan For To Do, For Down To, While Do dan Repeat Until. Untuk lebih memehami bentuk perulangan, buatlah tampilan program mengunakan Delphi seperti dibawah ini:

Perulangan For To Do
Perulangan For To Do merupakan proses pengulangan yang menggunakan kendali berupa counter/pencacah. Counter ini bekerja dengan menjalankan nilai awal sampai mencapai nilai akhir yang diberikan. Syaratnya nilai awal harus lebih kecil dari nilai akhir.

Bentuk umunya:

For <variabel>:=<Nilai awal> to <Nilai Akhir> do
begin
pernyataan;
end;

contoh programnya bisa anda tuliskan di button FOR TO DO

procedure TForm1.bt_fottodoClick(Sender: TObject);
var
a,b:integer;
begin
a:=StrToInt(edit1.Text);
begin
memo1.Clear;
for b:=1 to a do
   memo1.Lines.Add(inttostr(b));
end;
end;
2.    Perulangan For Down To
Perulangan ini sama dengan perulangan For To Do, akan tetapi proses nya dilakukan secara menurun dari besar ke kecil.
Bentuk umum dari perulangan ini
For Variabel:=<Nilai Awal> Down To <Nilai Akhir> do
Begin
Peintah;
Contoh program nya bisa anda tuliskan di dalam event OnClick adri tombol FOR DOWN TO
procedure TForm1.bt_FordowntoClick(Sender: TObject);
var
a,b:integer;
begin
a:=StrToInt(edit1.Text);
begin
memo1.Clear;
for b:=a DownTo 1 do
   memo1.Lines.Add(inttostr(b));
   end;
end;

Perulangan Repeat Until
Jenis perulangan ini akan bekerja sampai kondisi yang dinginkan terpenuhi.
Bentuk umumnya:
Repeat
Perintah;
Perintah;
Until <kondisi>;
 Contoh program nya bisa anda tuliskan di dalam event OnClick adri tombol REPEAT UNTIL

procedure TForm1.bt_repeatuntilClick(Sender: TObject);
var
a,b:real;
begin
a:=StrToInt(edit1.Text);
begin
memo1.Clear;
b:=0;
repeat
    b:=b+1;
    memo1.Lines.Add(FloatToStr(b));
until b=a;
end;
end;

Perulagnan While Do
Perulangan ini mirip dengan perulangan Repeat Until. Hanaya saja yang membedakannya adalah pengecekan nilai awalnya sebelum melakukan proses yang berulang
Bentuk umumnya
While Kondisi do
Begin
Perintah;
Perintah;
End;
Contoh program nya bisa anda tuliskan di dalam event OnClick adri tombol FOR DOWN TO

procedure TForm1.bt_whiledoClick(Sender: TObject);
var
a,b:real;
begin
a:=StrToInt(edit1.Text);
begin
  memo1.Clear;
  b:=0;
  while b<a do
  begin
    b:=b+1;
    memo1.Lines.Add(FloatToStr(b));
    end;
end;