PERULANGAN PADA DELPHI

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;
  
Praktek : 
Buka Borland Delphi 7. Klik File – New – Application.
Buat desain form seperti dibawah ini :

Component :

Edit     : Edit1 

Memo : Memo1

Button : Button1, Button2, Button3, Button4, Button5, Button6

Klik 2x pada tombol For To Do. Masukkan  script dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:= '';
j:= strtoint(Edit1.Text);
For i:=1 to j do
begin
b:= b+inttostr(i)+'     ';
end;
memo1.Text:= b;
end;

Klik 2x pada tombol For DownTo Do. Masukkan  script dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:= '';
j:= 1;
For i:= strtoint(Edit1.Text) downto j do
begin
b:= b+inttostr(i)+'     ';
end;
memo1.Text:= b;

end;

Klik 2x pada tombol Repeat Until. Masukkan  script dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:=1;
b:='';
j:= strtoint(Edit1.Text);
repeat
b:= b+inttostr(i)+'     ';
i:=i+1
until i>j;
memo1.Text:= b;
end;

Klik 2x pada tombol While Do. Masukkan  script dibawah ini :

procedure TForm1.Button4Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:= strtoint(Edit1.Text);
j:= 1;
b:= '';
while i >= j do
begin
b:= b+inttostr(i)+'     ';
i:=i-1
end;
Memo1.Text := b;
end;

Klik 2x pada tombol Baru. Masukkan  script dibawah ini :

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text := '';
Memo1.Text := 'Memo1';
Edit1.SetFocus;
end;

Klik 2x pada tombol Keluar. Masukkan  script dibawah ini :

procedure TForm1.Button6Click(Sender: TObject);
begin
Halt;
end;

Sudah selesai sekarang. Tekan F9 dan inilah hasil runningnya :

Sekian Share saya kali ini. Semoga bermanfaat......
Sampai jumpa dipostingan ane berikutnya ya gan….