Smart pascal source code


{ filename: A.pas }
unit A;

interface

uses
  SmartCL.System;

type
  TFooObject = class
  private
    FValue: Integer;
  public
    constructor Create(A: Integer);
    function Value: Integer;
  end;

var
  AFoo: TFooObject;

implementation

constructor TFooObject.Create(A: Integer);
begin
  FValue := A;
end;

function TFooObject.Value: Integer;
begin
  Result := FValue;
end;

end.
  

{ filename: uMain.pas }
type
  TSettingFunction = function(): Boolean;

function Foo: TFooObject;
begin
  if AFoo = nil then
    AFoo := TFooObject.Create(42);
  Result := AFoo;
end;

function Setting(): Boolean;
begin
  WriteLn(IntToStr(Foo.Value));
  Result := True;
end;

{ TApplication }
procedure TApplication.RunApp;
var
   SettingFunction: TSettingFunction = Setting;
begin
  SettingFunction(); // result is: 42

end;    

function Setting() {
   var Result = false;
   WriteLn(TFooObject.Value(Foo()).toString());
   Result = true;
   return Result
};
function Foo() {
   var Result = null;
   if (AFoo===null) {
      AFoo = TFooObject.Create$5($New(TFooObject),42);
   }
   Result = AFoo;
   return Result
};

var TFooObject = {
   $ClassName:"TFooObject",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.FValue = 0;
   }
   ,Create$5:function(Self, A$1) {
      Self.FValue = A$1;
      return Self
   }
   ,Value:function(Self) {
      return Self.FValue;
   }
   ,Destroy:TObject.Destroy
};

var TApplication = {
   $ClassName:"TApplication",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,myThis:function(Self) {
      return Self;
   }
   ,RunApp:function(Self) {
      var SettingFunction = null,
         SettingFunction = Setting;
      SettingFunction();
   }
   ,Destroy:TObject.Destroy
};

var AFoo = null;