Contoh Script Perulangan / Looping pada Delphi 7

Perulangan

Perulangan adalah cara mengulang perintah-perintah sampai pada kondisi tertentu. Ada beberapa perulangan dalam pemrograman Delphi Antara lain :

-          For …To…Do

-          For…DOwnTo…Do

-          Repeat…Until

-          While…Do

Untuk lebih jelasnya mari kita bahas satu per satu. 
For …To…Do
Bentuk Umum : 

For (counter):= (nilai awal) To (nilai akhir) Do
Begin
Perintah;
Perintah;
End; 

For …DownTo…Do
Bentuk Umum : 

For (counter):= (nilai awal) DownTo (nilai akhir) Do
Begin
Perintah;
Perintah;
End;

Catatan : Perbedaan perulangan For…To…Do dan For…Down…To…Do adalah : Jika perulangan For…To…Do bergerak naik dari kecil ke besar. Sedangkan For…DownTo…Do bergerak turun dari besar ke kecil. 

Repeat…Until
Repeat..Until disini program akan mengulang terlebih dahulu perintah-perintahnya. Sedangkan pengecekannya atau program counternya diakhir di akhir.
Bentuk Umum : 

Repeat
Perintah;
Perintah;
Until (Kondisi); 

While…Do
While…Do disini batas akhir perulangannya dikondisikan di awal. Setelah itu program akan mengulang perintah-perintah sampai batas yang telah ditentukan diawal tersebut. Pada perulangan ini menggunakan program counter (mis. i :=i + 1).
Bentuk Umum : 

While (Kondisi) Do
Begin
Perintah;
Perintah;
End;