Index Property

Smart pascal source code


type
  TTest = class
    FBase: Integer;
    constructor Create(aBase: Integer);

    function Get(i: Integer): String;
    procedure Set (i: Integer; v: String);
    function GetD(i: Integer): String;
    procedure SetD(i: Integer; v: String);

    property Prop[i: Integer]: String read Get write Set;
    property PropD[i: Integer]: String read GetD write SetD; default;
  end;

constructor TTest.Create(aBase: Integer);
begin
  FBase := aBase;
end;

function TTest.Get(i: Integer): String;
begin
  Result := 'Get ' + IntToStr(i + FBase);
end;

procedure TTest.Set(i: Integer; v: String);
begin
  WriteLn('Set ' + IntToStr(i + FBase) + ': ' + v);
end;

function TTest.GetD(i: Integer): String;
begin
  Result := 'GetD ' + IntToStr(i + FBase);
end;

procedure TTest.SetD(i: Integer; v: String);
begin
  WriteLn('SetD ' + IntToStr(i + FBase) + ': ' + v);
end;

var t = TTest.Create(10);

    t.Prop[0] := 'hello';
    t.Prop[1] := 'world';

WriteLn(t.Prop[100]);
WriteLn(t.Prop[200]);

t[0] := 'hello';
t[1] := 'world';

WriteLn(t[100]);
WriteLn(t[200]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Set 10: hello
Set 11: world
Get 110
Get 210
SetD 10: hello
SetD 11: world
GetD 110
GetD 210
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TTest = {
   $ClassName:"TTest",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.FBase = 0;
   }
   ,Create$3:function(Self, aBase) {
      $Check(Self,"").FBase = aBase;
      return Self
   }
   ,Get:function(Self, i) {
      return "Get "+(i+$Check(Self,"").FBase).toString();
   }
   ,GetD:function(Self, i$1) {
      return "GetD "+(i$1+$Check(Self,"").FBase).toString();
   }
   ,Set:function(Self, i$2, v) {
      WriteLn(("Set "+(i$2+$Check(Self,"").FBase).toString()+": "+v));
   }
   ,SetD:function(Self, i$3, v$1) {
      WriteLn(("SetD "+(i$3+$Check(Self,"").FBase).toString()+": "+v$1));
   }
   ,Destroy:TObject.Destroy
};
var t = null;

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

   t = TTest.Create$3($New(TTest),10);
   TTest.Set(t,0,"hello");
   TTest.Set(t,1,"world");
   WriteLn(TTest.Get(t,100));
   WriteLn(TTest.Get(t,200));
   TTest.SetD(t,0,"hello");
   TTest.SetD(t,1,"world");
   WriteLn(TTest.GetD(t,100));
   WriteLn(TTest.GetD(t,200));