Typendefinition innerhalb einer Klasse

[flosoft]

Hallo,
ich beginne gerade mich intensiver mit OOP zu beschäftigen.
Ich würde gerne folgendes erreichen:
Die Rückgabe von Function "foo" soll ein dynamisches Array aus Objekten der Klasse "THin" sein...
Hier mein Versuch:

Delphi-Quellcode:

uses Windows, Graphics;

type
  THin = class;

  TDes = class
  private
    type
       TaTHin = array of THin
    function foo(x: Integer): TaTHin;
  protected
    //...
  public
    //...
  end;

  THin = class
  private
    //...
  protected
    //...
  public
    //...
  end;

implementation

Mein Problem (oder besser gesagt das des Compilers ) ist die Typendefinition:

Delphi-Quellcode:

    type
       TaTHin = array of THin

Geht so ein "Konsturkt" in Delphi? Oder bin ich schon blind und es gibt dafür eine andere Lösung?
Danke
flosoft

[himitsu]

Zitat von flosoft:

Mein Problem (oder besser gesagt das des Compilers ) ist die Typendefinition:

Welches Problem? (Fehlerbeschreibung und Co.)

Zitat von flosoft:

Geht so ein "Konsturkt" in Delphi?

Ausprobieren?

seit Delphi 2006 / TDE: Ja, aber teilweise auch erst seit D2009

Zitat von flosoft:

und es gibt dafür eine andere Lösung?

Diesen Typen nicht inline deklarieren?

Delphi-Quellcode:

  THin = class;
  TaTHin = array of THin;

  TDes = class
  private
    ...

Bezüglich OOP sollte man hier aber noch die TObjektList erwähnen, anstatt des Arrays.

[Union]

Private Typdefintion geht IMHO nicht.

[s.h.a.r.k]

Zitat von Union:

Private Typdefintion geht IMHO nicht.

Klar gehts. Sogar strict private, wenn man sowas brauchen sollte.

Hm, aber ob das in der 2007er Version schon ging, weiß ich leider nicht.

[Union]

In $7D9 geht es

[flosoft]

Hallo,

das geht ja wieder fix!

@himitsu
Hatte das natürlich ausprobiert. Mit dem Erfolg:
[DCC Fehler] Deskewing.pas(25): E2029 '=' erwartet, aber ':' gefunden

TObjectList klingt gut. Schaue ich mir mal an.

Die Lösung von himitsu funktioniert.

Danke
flosoft

[himitsu]

Zitat von flosoft:

[DCC Fehler] Deskewing.pas(25): E2029 '=' erwartet, aber ':' gefunden

Wenn es auch in Public nicht geht, dann wird es wohl doch erst später implementiert worden sein.

Die Syntax stimmt, so im Prinzip.
Aber dein Delphi scheint dieses wohl so noch nicht zu kennen, darum diese Fehlermeldung.