Felder eines Objectes

[himitsu]

Natives ObjectPascal ohne RTTI:

Delphi-Quellcode:

type
  TTest = class
  private
    FTest: array[1..9] of Integer;
    function  Getter(Index: Integer): Integer;
    procedure Setter(Index, Value: Integer);
  public
    property Test1: Integer index 1 read Getter write Setter;
    ...
    property Test9: Integer index 9 read Getter write Setter;
    property Test[Index: Integer]: Integer read Getter write Setter;
  end;