Klassen-Eigenschaft als Array

[sirius]

z.B. über funktionen:

Delphi-Quellcode:

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

function TSample.getWert(i:integer);
begin
  case i of
    1: result:=FWert1;
    2: result:=FWert2;
    else raise Exception.create('Idiot');
  end;
end;

Da kann man natürlich auch die Variablen in ein Array legen.

Edit: kleiner Fehler behoben