Smart pascal source code


function test: string;
begin
  type a = class
    a1: string;
    a2: integer;
  end;

var
  toto := a.Create;
  toto.a1 := 'hello';
  toto.a2 := 123;
  Result := toto.ClassName;
  Writeln(toto.a1);
  Writeln(toto.a2);
end;

{ unit1.pas }

Begin
  Writeln(test);
{ CONSOLE OUTPUTS
	hello
	123
	a
}

 WriteLn(test());

function test() {
   var Result = "";
   var toto = null;
   /// a = class (TObject)
   ///  [line: 73, column: 8, file: uMain]
   var a = {
      $ClassName:"a",$Parent:TObject
      ,$Init:function ($) {
         TObject.$Init($);
         $.a1 = "";
         $.a2 = 0;
      }
      ,Destroy:TObject.Destroy
   };
   toto = TObject.Create($New(a));
   toto.a1 = "hello";
   toto.a2 = 123;
   Result = ClassName$1($ToClassType(toto));
   WriteLn(toto.a1);
   WriteLn(toto.a2);
   return Result
};