Array der eigenen Klasse als Result oder Property

[compmgmt]

Hallo allerseits,
erstmal zur Theorie. Mir ist absolut bewusst dass man ein Array nicht als Result übergeben kann, einen Typ allerdings schon. Das folgende ist möglich:

Code: Alles auswählen

type
  TIntArray = array of Integer;
...
function a: TIntArray;

Jetzt zu meinem Problem: Ich habe eine Klasse, welche sich selbst enthalten kann und möchte dies als Funktionsergebnis angeben. Hier mal zur Veranschaulichung ein Beispiel:

Code: Alles auswählen

type
  TMyClass = class
    private
      FItems: array of TMyClass;
    public
      function GetItems(OtherInformations: String): array of TMyClass;
  end;

Ich habe schon folgende Ideen gehabt/folgendes probiert:
1. TObjectArray = array of TObject (bzw die Elternklasse, wenn es nicht direkt TObject ist) stattdessen zu nehmen, wobei ich diese Möglichkeit als nicht schön finde und ein rekursives Ausgeben der Items durch casten umständlich gemacht wird. Sollte es keine Lösung für dieses Problem geben werde ich es eben so machen.
2. TArray spezialisieren, wobei das nicht funktioniert da ich ja auch erst einen Typ erstellen muss.

Habt ihr irgendwelche Ideen?

[Warf]

Was du suchst sind foreword deklarationen

Code: Alles auswählen

TMyClass = class; // foreword dekl
 
TArrayType = Array  of TMyClass; // benutze foreword dekl
 
TMyClass =class // richtige Definition 
//...
Arr: TArrayType;
End;

Ps: bin am Handy also nicht über Tippfehler wundern

[compmgmt]

Danke Warf, an forward Deklarationen hab ich gar nicht gedacht. Hab sie bisher noch nie benötigt.

[Socke]

Du kannst auch in Klassen Typen definieren:

Code: Alles auswählen

type
TMyClass = class(TObject)
public type
  TMyClassArray = array of TMyClass;
public
  function GetResult: TMyClass.TMyClassArray;
end;

[braunbär]

Hat den Nachteil, dass du solche Typen außerhalb von Methoden dieser Klasse immer als Klassenname.Typbezeichnung ansprechen musst.

Innerhalb der Klasse aber nicht, du kannst also schon schreiben

Code: Alles auswählen

 
type
TMyClass = class(TObject)
public type
  TMyClassArray = array of TMyClass;
public
  function GetResult: TMyClassArray;
end;
 
 

[wp_xyz]

Du kannst auch in Klassen Typen definieren

Schade, dass die klare Struktur der Sprache Pascal durch solche Modeerscheinungen immer mehr verwässert wird.

[Warf]

Schade, dass die klare Struktur der Sprache Pascal durch solche Modeerscheinungen immer mehr verwässert wird.

Pascal könnte von Anfang an nested Funktionen. Warum also nested Typen gegen den Stil von Pascal verstoßen sollten ist mir unklar. Ist doch das selbe Prinzip

Außerdem kann man sogar Typen innerhalb von Funktionen definieren (soweit ich weiß auch von Anfang an in pascal). Was im Vergleich zu dem was es schon immer gab, so schlimm an den nested Typen sein soll versteh ich beim besten Willen nicht

Mal ganz davon abgesehen das generische Typen ohne nested Typen in vielen Situationen recht witzlos wäre