Smart pascal source code


type
  TMyClass = class
    function MyFunc(i: Integer): Integer;
  end;

function TMyClass.MyFunc(i: Integer): Integer;
begin
  if i <= 0 then
    Exit(-1)
  else
  begin
    Result := i;
    if i = 10 then
      Exit(i + 1)
    else if i > 10 then
      Exit(Result + 2)
  end;
end;

{ main.pas }

var
  o: TMyClass = TMyClass.Create;
Begin
  WriteLn(o.MyFunc(0));
  WriteLn(o.MyFunc(5));
  WriteLn(o.MyFunc(10));
  WriteLn(o.MyFunc(11));
  { <<< CONSOLE OUTPUTS >>>
    -1
    5
    11
    13
  }

      var o = null;
      o = TObject.Create($New(TMyClass));
      WriteLn(TMyClass.MyFunc(o,0));
      WriteLn(TMyClass.MyFunc(o,5));
      WriteLn(TMyClass.MyFunc(o,10));
      WriteLn(TMyClass.MyFunc(o,11));
	  
/// TMyClass = class (TObject)
///  [line: 34, column: 6, file: uMain]
var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// function TMyClass.MyFunc(i: Integer) : Integer
   ///  [line: 38, column: 19, file: uMain]
   ,MyFunc:function(Self, i) {
      var Result = 0;
      if (i<=0) {
         return -1;
      } else {
         Result = i;
         if (i==10) {
            return i+1;
         } else if (i>10) {
            return Result+=2;
         }
      }
      return Result
   }
   ,Destroy:TObject.Destroy
};