Interface Problem mit TControl

[FAlter]

Hi,

ich habe ein Interface:

Delphi-Quellcode:

type
  IChangeable = interface(IInterface)['{BAC01552-BB67-488E-B33C-16CFF2BA2F5B}']
    function isChanged: Boolean;
    procedure Change;
  end;

Und Klassen die z. B. so aussehen:

TEditorFrame = class(TSynEdit, IFileFrame, IChangeable) Sie sind alle mittelbare Nachfahren von TControl. Nun habe ich eine Variable:

FFrame: TControl; Da sind irgendwelche TControl-Nachfahren drauf. Ob sie dieses Interface implementieren weiß ich nicht.

Nun habe ich es so versucht zu prüfen:

Delphi-Quellcode:

if (FFrame is IChangeable) then
  if IChangeable(FFrame).isChanged then
    ...

Der Compiler bringt mir aber folgende Felhermeldungen:

Zitat:

umainide.pp(345,14) Error: Class or Object types "TControl" and "IChangeable" are not related
umainide.pp(345,14) Error: Incompatible type for arg no. 1: Got "IChangeable", expected "TClass"
Hint: Found declaration: $fpc_do_is(TClass, TObject):Boolean
umainide.pp(346,8) Error: Class or Object types "TControl" and "IChangeable" are not related
umainide.pp(387) Fatal: There were 3 errors compiling module, stopping

Ich habe per Google zwar was von einem interfache "is" patch gefunden. Aber das war 2005. Inzwischen müsste der Patch doch drin sein?

Oder hab ich nen Denkfehler in meiner Prüfung drin?

Gruß
Felix

[shmia]

Du musst die Supports()-Funktion benützen:

Delphi-Quellcode:

var
  ic : IChangeable;
begin
  if Supports(FFrame, IChangeable, ic) then 
    if ic.isChanged then

[himitsu]

(FFrame as IChangeable) könnte eventuell auch gehn ... zumindestens muß hier das Interface gesucht werden (ein einfacher TypeCast geht da nicht), da die Interfacevariable sozusagen auf das Interface zeigen muß und nicht auf das Objekt.

[JamesTKirk]

as löst allerdings eine Exception aus, wenn das Interface nicht implementiert ist. Das könnte eventuell unerwünscht sein.

Gruß,
Sven

[FAlter]

Hi,

danke. Ich dächte es ginge mit is wie auch bei Klassen. Scheint eine FPC Eigenart zu sein?

As wollte ich nicht nehmen weil ich die Exception möglichst schon vermeiden wollte. Supports klingt gut. Und compiliert auch.

Gruß
Felix

[himitsu]

Wieso, es ist doch implementiert? (zumindestens wurde es ja vorher geprüft)

Delphi-Quellcode:

if (FFrame is IChangeable) then
  if (FFrame as IChangeable).isChanged then

Supports wäre praktisch auch nur ein IS und ein AS in Einem

[FAlter]

Hi,

nein, der Compiler akzeptiert ja schon das is nicht.

Gruß
Felix

[sirius]

Ich weis nicht, wie FPC das macht, aber in Delphi gibt es mit der Mischung von Objekten und Interfaces große Probleme (auch wenn man supports anwendet).

[himitsu]

Zitat von FAlter:

nein, der Compiler akzeptiert ja schon das is nicht.

nicht?

aber das AS ging zumindestens (in Delphi)

[sirius]

Zitat von himitsu:

Zitat von FAlter:

nein, der Compiler akzeptiert ja schon das is nicht.

nicht?

Nö, das ging noch nie. Ist schon komisch, da eigentlich klar ist was gemeint ist (nachgucken ob die IID in der Interfacetabelle des Objektes/der Klasse steht), hätte man das schon längst implementieren können.