Changeset 46 for branches/DelphiToC/Example.pas

Timestamp:

Aug 9, 2010, 11:22:45 AM (14 years ago)

Author:

george

Message:

Added pascal producer code.
Added selection combobox for producer type.

File:

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

branches/DelphiToC/Example.pas

@@ -4 +4 @@
 
 procedure Pokus(A: Byte);
+var
+  S: Byte;
 begin
+  WriteLn;
+  WriteLn;
 end;
 
@@ -26 +30 @@
   A := 1;
   if A = 2 then begin
+    A := 3;
   end;
   while A < 1 do A := A + 1;