Madriva: Looping Pada Delphi [Part 1]

Looping Pada Delphi [Part 1]

Posted by : Rhyf Ahmad Sunday, May 13, 2012

Loop merupakan sebuah istilah programming yang menyatakan suatu proses akan dilakukan secara berulang-ulang. Pada postingan terdahulu saya memberikan artikel tentang beberaa fungsi perulangan pada Delphi. Namun fungsi tersebut masih bersifat dasar, dan kali ini saya akan mencoba memberikan fungsi intermediate pelengkap bagi sobat Blogger yang memang ingin mendalami pemrogramman Delphi secara lebih lanjut.

Mari masuk.... :)

Looping "Continue"
Kode Continue digunakan untuk proses Looping ketika pada suatu ketika suatu proses dihentikan dan hendak dijalankan kembali. Contoh listing kodenya adalah sebagai berikut:

procedure TForm1.Button1Click(Sender:TObject)
var
  i : integer;
s : string;
begin
s := '';
for i := 1 to 9 do
  begin
  //Loncat perulangan pada kondisi ini
  if (i = 2) or (i = 4) then Continue;
s := s + IntToStr(i);
s := s + '';
end;
  //Memunculkan hasil
ShowMessage('s = '+s);
end;

Hasilnya adalah sebagai berikut :

s = 1 3 5 6 7 8 9
Looping "Goto"
Fungsi Looping Goto digunakan untuk melakukan proses lain setelah proses looping berada pada kondisi tertentu. Contoh listing kode programnya adalah sebagai berikut.

procedure TForm1.Button1Click(Sender:TObject)
var
i : integer;
label
GotoLabel;
begin
for i := 1 to 9 do
begin
ShowMessage('i = '+IntToStr(i));
//Looping akan berhenti pada kondisi ini
if i = 5 Goto GotoLabel;
end;
ShowMessage('The Loop Finished OK');
//Memunculkan hasil
GotoLabel :
ShowMessage('Looping selesai dengan i = ' IntToStr(i));
end;

Hasilnya adalah :

i = 1
i = 2
i = 3
i = 4
i = 5
Looping selesai dengan i = 5