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'

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

Danke,
winx

Funktioniert ein Cast?

fActions.Add(TObject(action));

Es funzt

Mann bin ich bescheuert, ans naheliegenste nicht gedacht

Danke!!!

Zitat von winx:

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

Mit TInterfaceList?

HTH,
Uli.

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)

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

Hallo,

wenn Du wirklich ein Interface an einen Eintrag hängen willst, bekommst Du den nur über einen weiteren Cast wieder zurück:
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

nimm eine Helperobjekt welche das Interface speichert

markieren

Delphi-Quellcode:

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