Elementzugriff auf einer Klasse ohne Funktionen

[Thebe]

klar geht das

Delphi-Quellcode:

type
  CComplex3DArray = class
    private:
      Data : array of array of array of TComplex;
      function GetCells(x, y, z: integer): TComplex;
      procedure SetCells(x, y, z: integer; value: TComplex);
    public:
      procedure setDimensions(x,y,z:integer);
      property Cells[x, y, z: integer]: TComplex read GetCells write SetCells; default;
  end;

function CComplex3DArray.GetCells(x, y, z: integer): TComplex;
begin
   result := Data[x, y, z];
end;

procedure CComplex3DArray.SetCells(x, y, z: integer; value: TComplex);
begin
   Data[x,y,z] := value;
end;

Das wichtige hierbei is das default; hinter dem Property. Damit kannste die Eigenschaft per Dummy[x,y,z] oder aber per Dummy.Cells[x,y,z] ansprechen. So eine default Eigenschaft kannst Du BTW nur mit Array Eigenschaften machen und dann auch nur einmal pro Klasse.

MfG

- Thebe