record method

Smart pascal source code


type
  TTest = record
  private
    FHidden: String;
  public
    Field: Integer;
  private
    procedure SetHidden(v: String);
    begin
      FHidden := v;
    end;
    function GetIdx(i: Integer): String;
  public
    property Shown: String read FHidden write SetHidden;
    property Idx[i: Integer]: String read GetIdx; default;
    procedure SayHello;
    class function NewOne(s: String): TTest;
    begin
      Result.FHidden := s;
      Result.Field := 123;
    end;
  end;

function TTest.GetIdx(i: Integer): String;
begin
  Result := Shown + IntToStr(i);
end;

procedure TTest.SayHello;
begin
  WriteLn('Hello ' + FHidden);
end;

var t: TTest;
t.Shown := 'World';
t.SayHello;

WriteLn(t.Idx[123]);
WriteLn(t[456]);

t := TTest.NewOne('New one');
t.SayHello;
WriteLn(t.Field);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Hello World
World123
World456
Hello New one
123
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TTest(s,d) {
   d.FHidden=s.FHidden;
   d.Field=s.Field;
   return d;
}
function Clone$TTest($) {
   return {
      FHidden:$.FHidden,
      Field:$.Field
   }
}
function TTest$GetIdx(Self$1, i) {
   return Self$1.FHidden+i.toString();
}
function NewOne(s) {
   var Result = {FHidden:"",Field:0};
   Result.FHidden = s;
   Result.Field = 123;
   return Result
}
function TTest$SayHello(Self$2) {
   WriteLn(("Hello "+Self$2.FHidden));
}
function TTest$SetHidden(Self$3, v) {
   Self$3.FHidden = v;
}
var t = {FHidden:"",Field:0};

/* <<< main JS >>> */

   TTest$SetHidden(t,"World");
   TTest$SayHello(t);
   WriteLn(TTest$GetIdx(t,123));
   WriteLn(TTest$GetIdx(t,456));
   t = NewOne("New one");
   TTest$SayHello(t);
   WriteLn(t.Field);