Contoh Perulangan pada Delphi (For To Do)

software yang di gunakan adalah Delphi 7

for to do adalah . program yang berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang di ulang selesai

Sebelum memasang listing pada program ini , kita terlebih dahulu memasang button1 , label 1 dan label 2 dan satu memo untuk output nya serta edit 1 dan edit 2 untuk melakukan input 

label satu isikan namanya jadi angka awal

label2 isikan jumlah perulangan ,, 

PROCEDURE TFORM1.BUTTON1CLICK(SENDER: TOBJECT);

VAR I,J:INTEGER;

BEGIN

MEMO1.CLEAR;

I:=STRTOINT (EDIT1.TEXT);

FOR J:= 1 TO STRTOINT (EDIT2.TEXT) DO

BEGIN

MEMO1.LINES.ADD('KE:'+INTTOSTR(J)+'='+INTTOSTR(I));

I:=I+1;

END;

END; 

end.

Output nya :

untuk hari ini yang pake mode perulangan for to do dulu , udah ngantuk juga nih , pertemuan selanjutnya akan membahas metode for downto do