Elementzugriff auf einer Klasse ohne Funktionen

[Blechwolf]

Servus,

ich habe folgendes Problem:

Ich habe einen Datentyp TComplex, der aus einer Real und einer imaginär Zahl besteht.
Von diesem Datentyp brauche ich ein 3D-Array.
Eigentlich kein Problem:

Delphi-Quellcode:

type
 TComplex3Darray = array of array of array of TComplex;

oder eleganter über den Umweg mir ein 2DArray Typ und ein 1DArray Typ zu definieren.

Jetzt will ich aber mit diesem Array noch ein paar Sachen machen. Zum Beispiel in ein 1D Array umwandeln, speziell formatiert ausgeben, FFT drüberjagen, etc.
Also eigentlich ist ne Klasse sinnvoller.

Auch kein Problem:

Delphi-Quellcode:

type
  CComplex3DArray = class
    private:
      Data : array of array of array of TComplex;
    public:
      setDimensions(x,y,z:integer);

usw.

So wie ich das bisher kenne, muß ich jetzt noch zwei Funktion schreiben, die mir die Werte setzen und auslesen.
Also:

Delphi-Quellcode:

Dummy := CComplex3DArray.Create(x,y,z);
Dummy.setValue(x,y,z,Value);
Dummy.getValue(x,y,z);

Meine Frage ist jetzt die folgende:
Gibt es eine Möglichkeit diese Funktionen zum setzen und auslesen von Werte so zu gestalten, das ich statt
Dummy.setValue(x,y,z,Value); auch
Dummy[x,y,z] := Value; schreiben kann?

Grüße

Blechwolf

[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

[Luckie]

Ich glaube du redest von Propertys. Kuck dazu auch mal in mein Klassen-Tutorial rein ( http://tutorials.luckie-online.de ).

[Blechwolf]

Bingo )

Besten Dank.

[mytar]

Dazu musst du allerdings wissen was propertys sind.

Beispiel:

Delphi-Quellcode:

public
property SetValue[x,y,z: Integer]: Integer read GetValue write SetValue; default;

Ohne das default kannst du nur über Dummy.SetValue[x, y, z] zugreifen, d.h. lesen und
schreiben.

mit default erreichst du dein Ziel:
Dummy.SetValue[x, y, z] := Value

! Achte allerdings auf die Typen !

greetz
mytar