Ayo! Belajar Perulangan di Delphi

Berikut adalah pembelajaran dari perintah For ... To... Do di Delphi, silakan dipelajari dan dipahami script yang sederhana dan sering kita gunakan dalam pemrograman. Jika saudara mempraktekan script tersebut maka saudara akan menemui pertanyaan-pertanyaan, yang mungkin bisa saudara jawab sendiri, akan tetapi jika sebaliknya maka saudara bisa menanyakan kesulitannya lewat media Chat di menu sebelah kiri dalam blog ini. Selamat mencoba dan semoga cepat dalam memahamai fungsi perulangan dengan menggunakan metode For .. To ... Do, di Delphi. Berikut adalah scriptnya :

implementation

{$R *.dfm}

procedure TForm1.Versi1BtnClick(Sender: TObject);
var
 Var1, Var2 : Variant;
 Nil1, Nil2, Hit : Integer;
begin
 Memo1.Clear ; // membersihkan layar memo sebelum menambahkan angka
 Var1 := NAwal.Text; // Variabel Var1 diisikan di kolom inputan (NAwal) misalnya 0
 Var2 := NAkhir.Text; // Variabe2 Var2 diisikan di kolom inputan (NAkhir) misalnya 10

 //Mengkonversi tipe data masukan yang secara manual dari string to integer
 Nil1 := integer(Var1);
 Nil2 := integer(Var2);

 //proses perulangan
 for Hit := Nil1 to Nil2 do
   try
    Memo1.Lines.Add('Urutan ke :'+ IntToStr(Hit-1));
   finally
    Memo1.Lines.Add(IntToStr(Hit));
   end;
end;

/// versi simpelnya dengan konsep yang sama
procedure TForm1.Versi2BtnClick(Sender: TObject);
var
 a, b, Hitung : integer;
begin
  a := StrToInt(NAwal.Text);
  b := StrToInt(NAkhir.Text);

  for Hitung := a to b do
   Memo1.Lines.Add(IntToStr(Hitung));
end;

Semoga bermanfaat...