Changeset 14 for branches/DelphiToC/Example.pas

Timestamp:

Apr 9, 2009, 11:04:41 AM (15 years ago)

Author:

george

Message:

• Opraveno: Chyby v uvolňování paměti.
• Opraveno: Program po rozdělení do více souborů opět funguje jako dříve.

File:

• branches/DelphiToC/Example.pas (modified) (1 diff)

branches/DelphiToC/Example.pas

@@ -4 +4 @@
   B: Byte;
 begin
-  A := 'a' + (10 + 2 * 3 + 2) xor 10 / 2;
-  B := 20;
-  while A < 10 do A := A + 1;
-
+  A := 1;
 end;