Property soll array von einem eigenen Objekt zurückgeben

[Mussi0]

Hallo zusammen,

ich habe ein Problem und zwar habe ich 2 KLassen (KLasse1 & Klasse2) erstellt, in der Klasse1
habe ich als Eigenschaften der Klasse Objekte der Klasse2 genommen, als Array.
Mein Problem ist nun das die Eigenschaften der Klasse1 also:

FObjekt : array [1..8] of TKlasse2; Nun möchte ich aus meiner Main Unit auf die Eigenschaften der Klasse1 zugreifen und
da speziell auf das Objekt von der Klasse2.

Ich habe das ausprobiert mit als property also so:
property Objekt : array of TKlasse2 read FObjekt; Leider hat das nicht funktioniert.

So sieht der ganze Code aus:

Delphi-Quellcode:

type
  TKlasse1 = class
   private
    FObjekt : array [1..8] of TKlasse2;
    ...
   public
    property Objekt : array of TKlasse2 read FObjekt;
  end;

Oben mein Beispiel ist falsch, nur wie muss ich das machen??

Gruß und Dank im Vorraus
Muss!0

[Christian Seehase]

Moin Mussi0,

probier's mal so:

Delphi-Quellcode:

public
  property Objekt[iIndex : integer] : TKlasse2 read GetObjekt write SetObjekt;
end;

implementation

function TKlasse1.GetObjekt(iIndex: integer) : TKlasse2;
begin
  Result := FObjekt[iIndex];
end;

function TKlasse1.SetObjekt(iIndex: integer;Value : TKlasse2);
begin
  FObjekt[iIndex] := Value;
end;

[Mussi0]

ahh...danke so gehts