Changeset 50 for branches/DelphiToC/Example.pas

Timestamp:

Aug 9, 2010, 3:05:26 PM (14 years ago)

Author:

george

Message:

Added support for loop for-to-do.
System types and functions are not generated to output code.

File:

• branches/DelphiToC/Example.pas (modified) (2 diffs)

branches/DelphiToC/Example.pas

@@ -12 +12 @@
 
 const
-  Verze: Bytel = 11;
+  Verze: Byte = 11;
 var
   a: Byte;
@@ -21 +21 @@
   WriteLn(A);
   begin
-    WriteLn;
+    WriteLn(11);
     Pokus;
     dsd;
     begin
-      WriteLn;
+      WriteLn(A);
     end;
   end;
   A := 1;
+  for A := 1 to 2 do WriteLn(A);
   if A = 2 then begin
     A := 3;
   end;
   while A < 1 do A := A + 1;
-  WriteLn;
+  WriteLn(D);
 end.