Klassen-Eigenschaft als Array

[dominikkv]

Meinst du das so:

Delphi-Quellcode:

TSample = class(TObject) 
  private 
    FWert1 : integer; 
    FWert2 : integer; 
    function GetWert(idx: Integer): Integer;
  public 
    constructor Create; 
    property Wert[idx: Integer]: Integer read GetWert; 
    procedure GetInfos; 
  end;

function TSample.GetWert(idx: Integer): Integer;
begin
  case idx of
    0: result := FWert1;
    1: result := FWert2;
  end;
end;

@roter kasten:
och mennoooo :/ du warst schneller