Loop structures: Difference between revisions

Content added Content deleted

Inline

@@ Line 430: / 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;