Perulangan For Down To Delphi 7

Perulangan For Down To Menggunakan Delphi 7

Berikut ini adalah contoh penggunaan perulangan bagi teman-teman yang ingin belajar dapat digunakan sebagai referensi.

Langkah 1 : siapkan komponen seperti gambar dibawah ini:

Langkah 2 :  

Beri nama pada masing2 pada properties(caption=Test) pada button, label juga dikasi ya disesuaikan saja.

Pada memo lines nya dikosongkan

Langkah 3: klik 2 x pada button / test

Lalu Isikan code berikut :

procedure TForm1.Button1Click(Sender: TObject);

var i,d :integer;

a,b,c:string;

begin

   d:=StrToInt(Edit1.Text);

   Memo1.Clear;

  for i:=d downto 1 do

   begin

    a:=IntToStr(i);

    b:=IntToStr(i-1);

    Memo1.Lines.Add('tek otek - otek anak ayam turun '+a+' mati satu tinggal '+b);

    end;

end;

Langakah :  4 runing/ f9