Interface casten

[kuzco]

hi oracle

ja... das wollte ich auch einmal machen ... und habe hier in der DP danach gesucht. ich weiss nicht mehr genau welcher Beitrag es war, aber der Beitrag hat mich auf jedenfall dazu bewogen eine andere Lösung zu nehmen und zwar einerseits immer mit Objekten zu arbeiten oder immer nur mit Interfaces zu arbeiten ohne das herumgecaste.

So und falls du dich noch nicht umentschieden hast, wäre das eine möglichkeit die vielleicht ein Versuch wert wäre :

und zwar indem du im Interface eine funktion definierst, welches den Typ TMessung zurückgibt:

Delphi-Quellcode:

TMessung = class;

IMessKnoten = interface
   function GetMessung: TMessung;
end;

TMessung = class(TInterfacedObject, IMessKnoten)
public
   function GetMessung: TMessung;
end;

...

function TMessung.GetMessung: TMEssung;
begin
  Result := Self;
end;

ich bin mir nicht sicher ob das wirklich funktioniert. evtl gibt es auch probleme mit dem Referenzierungszähler oder wie man das auch nennt.

Greets
kuzco