Perulangan Pada Delphi

Perulangan merupakan control program yang digunakan untuk suatu proses yang akan berjalan terus menerus. Kondisi perulangan merupakan proses berjalannya program secara terus menerus dan akan berhenti ketika proses mendapatkan kondisi yang sudah ditentukan.
Macam-Macam bentuk perulangan pada Delphi:
a. Perulangan For – To – Do
Perulangan dengan statement for adalah perulangan yang digunakan untuk melakukan suatu proses dalam sebuah blok program. Proses perulangan For – To – Do dimulai dengan nilai terkecil ke besar.
Bentuk Umum :
For variabel := nilai awal to nilaiakhir statement
Catatan : semua variabel yang berhubungan dengan perulangan harus mempunyai tipe data sama.
Contoh :

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to 5 do
editl.SelText := inttostr(i);
end; end.

Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit 1 dengan hasil sebagai berikut =

12345

b. Perulangan For – DownTo-Do
Perulangan For-Dowbto-Do adalah perulangan yang mengihutng suatu proses dengan nilai awal besar dan nilai akhinya lebih kecil, maka variabel sebagai control program yang diperoleh adalah dari besar ke kecil.
Bentuk Umum :
For Variabel := nilai-awal Downto Nilai-akhir Do Pernyataan
Contoh :

procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
for i := 5 downto 1 do
edit1.SelText := inttostr(i);
end;

Bila program tersebut dijalankan maka hasil yang diperoleh adalah sebagai berikut ;

	54321

c. Perulangan While Do
Perulangan While Do adalah statement perulangan akan terus melakukan suatu proses selama kondisi/syarat yang ditentukan bernilai benar.
Bentuk Umum
Statement While – Variabel Syarat – Do Pernyataan
Contoh :

procedure TForrn1.Button3Click(Sender: TObject);
var
i : integer;
begin
i := 0;
while i < 5 do
begin
edit1.selText := inttostr(i);
i := i + 1;
end;
end;

Bila program tersebut dijalankan maka hasil yang akan diperoleh adalah sebagai berikut :

	01234

d. Perulangan Repeat Until
Perulangan repeat until digunakan untuk mengulang suatu kondisi sampai (until) kondisi bernilai salah.
Bentuk Umum :
Repeat – Statement/penyataan — Until – - – ungkapan logika
Contoh :

procedure TForrn1.Button4Click(Sender: TObject);
var
i : integer;
begin
i := 1;
repeat
i := i + 2;
edit1.5elText := inttostr(i);
until i = 15;
end;

Bila program tersebut dijalankan maka akan diperoleh hasil sebagai berikut :

3579111315

Sumber : https://annur24.wordpress.com/2013/12/21/perulangan-pada-delphi/