Interface instans

Du kan prøve at kigge i TypInfo unit'en, der er alle funktioner til RTTI

Der skal nok være et eller andet der kan fortælle om typen - et eller andet sted. Synes ikke at man skal rode for meget med RTTI; det er for low-level til at være fremtidssikkert.

Hvis der mangler noget så kan du definere en funktion der returnerer din egen type?

Noget i retning af dette:

  TInterfaceTypes = (itEngineX, itEngineY);

  IEngine = Interface
    function GetType : TInterfaceTypes;
  end;

  TEngineX = Class(TEngine, IEngine)
    function GetType : TInterfaceTypes;
  end;

..

function TEngineX.GetType : TInterfaceTypes;
begin
  result := itEngineX;
end;

osv.