Changeset 47 for branches/DelphiToC/Example.pas

Timestamp:

Aug 9, 2010, 12:48:14 PM (14 years ago)

Author:

george

Message:

Support for function definition with result type.

File:

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

branches/DelphiToC/Example.pas

@@ -3 +3 @@
 uses System, Crt;
 
-procedure Pokus(A: Byte);
+function Max(A, B: Byte): Byte;
 var
   S: Byte;
 begin
-  WriteLn;
-  WriteLn;
+  if A > B then Result := A
+  else Result := B;
 end;