Objekte die ein Interface impl in einer Liste speichern???

[winx]

Hallo,

ich habe mehrere Klassen, die alle das IAction Interface implementieren. Nun erzeugt mir eine Factory immer
die richtige Klasse und gibt mir das IAction Objekt zurück

function build(...): IAction;

Nun möchte ich diese in einer Liste abspreichern, bekomme aber immer den Fehler:

[DCC Error] Actiongroup.pas(54): E2010 Incompatible types: 'TObject' and 'IAction' :wall:

wie kann ich in Delphi in einer Liste beliebige, IAction implementierente Objekte speichern?

Danke,
winx

[mkinzler]

Funktioniert ein Cast?

[winx]

fActions.Add(TObject(action));

Es funzt :dp:

Mann bin ich bescheuert, ans naheliegenste nicht gedacht :duck:

Danke!!!

[uligerhardt]

Zitat:

Zitat von winx

wie kann ich in Delphi in einer Liste beliebige, IAction implementierente Objekte speichern?

Mit TInterfaceList?

HTH,
Uli.

[Bernhard Geyer]

Zitat:

Zitat von winx

fActions.Add(TObject(action));

Bitte keine harten Casts! Du kommst über früher oder später in teufels Küchen (unerwartete Speicherfreigaben oder keine)

[winx]

habs mit der Interfaced List gemacht.

Aber wie kann ich nun diese IAction Objekte in eine Listbox einfügen (das klappt schon) und wieder rausbekommen???

Einfügen funktioniert:

lbActions.Items.AddObject(action.ToString(),TObjec t(action));

Aber wenn ich Sie wieder rausholen möchte, gehts nicht:

action := IAction(lbActions.Items[i].LinkedObject); //[DCC Error] ActionCreationForm.pas(128): E2010 Incompatible types: 'IAction' and 'TObject'

wie läuft denn das mit Klassen, die ein Interface implementieren... ???

danke

[xaromz]

Hallo,

wenn Du wirklich ein Interface an einen Eintrag hängen willst, bekommst Du den nur über einen weiteren Cast wieder zurück:

Delphi-Quellcode:

action := IAction(Pointer(lbActions.Items[i].LinkedObject));

Du solltest bei solchen Schweinereien aber beachten, dass Du damit die Referenzzählung aushebelst (bzw. eine Weak-Referenz verwendest). Das heist also, dass Du das Interface mit einer solchen Speicherung nicht vor dem Zerstören retten kannst.

Gruß
xaromz

[Bernhard Geyer]

nimm eine Helperobjekt welche das Interface speichert

Delphi-Quellcode:

type
  TInterfaceHolder = class(TObject)
    FInterface: IAction;
  end;