Loop structures: Difference between revisions

Line 430:
 
FOR counter=1 TO 10 DO
BEGIN
procedure1;
procedure2;
END;
 
'''Compiler:''' [[Delphi]] 1.x and above
 
Var
 
Counter : char ;
 
FOR counter= 'A' TO 'Z' DO
BEGIN
procedure1;
Anonymous user