Recursives Interface

[brieker]

Moin

ich habe mit einem Problem zu kämpfen.

Ich versuche gerade so ein Interface zu bauen.

Code:

IModelItem = interface(IInterface)
  function GetChild(aIndex: Integer): IModelItem;
  procedure SetChild(aIndex: Integer; aItem: IModelItem);
  procedure AddChild(aItem: IModelItem);
  property Child[aIndex: Integer]: IModelItem read GetChild write SetChild;
end;

Scheinbar kann man so ein konstrukt aber nicht machen.
Weis jemand wie es richtig wäre oder ob man das ganz anders machen muss.

CU Ben

[BUG]

Vorwärtsdeklarationen sind meist die Lösung für diese Art von Problemen.

[mkinzler]

Was für einen Fehler zeigt der Compiler an?

[Mikkey]

Bei mir compiliert Dein Code, was bekommst Du denn für eine Fehlermeldung?

[brieker]

Danke das mit der Vorwärtsdeklaration wars.
Ich hab es nur bisher falsch geschrieben und deshalb hab ich gedacht das es nicht geht.

So funktioniert es Danke.

Code:

IModelItem = interface;

IModelItem = interface(IInterface)
  function GetChild(aIndex: Integer): IModelItem;
  procedure SetChild(aIndex: Integer; aItem: IModelItem);
  procedure AddChild(aItem: IModelItem);
  property Child[aIndex: Integer]: IModelItem read GetChild write SetChild;
end;

[himitsu]

In Delphi sollte es auch ohne gehn.

Lazarus, oder ein richtig altes Delphi? (das sind Dinge, die man besser mit erwähnen sollte und teilweise auch in seinem ForenProfil angeben kann)

[brieker]

Delphi XE7 ist ja nun wirklich nicht richtig alt auch wenn es XE8 schon gibt.

Das Profil werde ich noch ändern.

CU Ben

[himitsu]

Komisch.

Wie lautete denn genau die Fehlermeldung? (und eventuell für welche Plattform du kompilieren wolltest)


Strg+C funktioniert in (Fehler)Dialogen und unten im Compiler-Log.
Und es lässt sich dann problemlos hier als Text reinkopieren, womöglich sogar mit [QUOTE]...[/QUOTE] drumrum.