Generische Interface-Liste

[s.h.a.r.k]

So, nun habe ich das nächste Problem mit den Interfaces, in die ich mich eigentlich echt verliebt habe... Wenn man das beherrscht wirkt mein alter Code sowas von fest verdrahtet... Naja, back to topic now!

Folgende Deklarationen habe ich (sehr stark vereinfachte Form) -- Ziel des ganzen soll es sein TInterfaceList durch eine generische, einfachere Liste zu ersetzen.

Delphi-Quellcode:

// Generisches Interface als Schnittstelle für die InterfaceList
// stark gekürzt!
IGenericInterfaceList<T: IInterface> = interface
  ['{72C2E8C9-9854-474D-895C-850A3B5B3D9F}']
  function Get(Index: Integer): T;
end;

// Generische Interface-Liste, implementiert generisches InterfaceList-Interface
TGenericInterfaceList<T: IInterface> = class(TInterfacedObject, IGenericInterfaceList<T>)
public
  FInterfaces : TInterfaceList;
  function Get(Index: Integer): T;
end;

// Einfach die eine Methode implementiert
function TGenericInterfaceList<T>.Get(Index: Integer): T;
begin
  Result := FInterfaces[Index];
end;


// --------------------------------------------
//  Irgendwo anders...
// --------------------------------------------

// Einfach ein simples Interface...
IBlub = interface(IInterface)
  ['{94C4FB45-05EB-4078-A9DE-8A09132F1006}']
end;

// Benutzung des ganzen...
procedure UseItA();
var
  A : TGenericInterfaceList<IBlub>;
begin
  A := TGenericInterfaceList<IBlub>.Create();
end;

procedure UseItB();
var
  B : IGenericInterfaceList<IBlub>;
begin
  B := TGenericInterfaceList<IBlub>.Create();
end;

Solange die beiden Methoden UseItA oder UseItB aus dem Programmcode entfernt werden, ist alles okay und das Programm compiliert. Sobald ich aber die beiden Methoden einfüge, compiliert mein Programm nicht mehr, die IDE wirft mich innerhalb der Unit ans Ende und gibt mir diesen Fehler aus:

Code:

[DCC Fehler] Unit1.pas(61): E2010 Inkompatible Typen: 'IBlub' und 'IInterface'

Hatte gedacht, dass alle Interface von IInterface "abgeleitet" sind?! Ist dem nicht so? Anders gefragt: wie kann ich dann sicherstellen, dass TGenericInterfaceList nur Interfaces aufnimmt?!

[Stevie]

Das ist das Problem:

Delphi-Quellcode:

function TGenericInterfaceList<T>.Get(Index: Integer): T;
begin
  Result := FInterfaces[Index];
end;

[s.h.a.r.k]

DANKE!!! :stupid: Da wäre ich meiner Lebtage nie drauf gekommen... Drängt sich mir die Frage auf, wie oft du dieses Problem schon hattest?! :mrgreen:

[Stevie]

Das konkrete Problem noch nie, aber nachdem ich den von dir geposteten Code kompiliert habe und bei beiden Prozeduren der Fehler kam, blieb ja nur noch die einzige Methode in der Klasse. Und dort fiel mir dann auf, dass ein IInterface in der Tat nicht zuweisungskompatibel zu einem IBlub ist :)

[s.h.a.r.k]

Hm... Okay, das habe ich wahrlich übersehen. An dieser Stelle nochmals vielen Dank! Hat mir echt viel Zeit erspart!

Anbei habe ich mal diese generische InterfaceList. Vielleicht hilft diese ja mal jemanden. Von der Lizenz her: macht damit was ihr wollt :)

PS: Das Alpha im Dateinamen deutet darauf hin, dass es sich noch um eine Unit handelt, für die es keinen Test gibt. Somit ist der Code mit Vorsicht zu behandeln. Bei mir klappt bisher alles damit.

[jaenicke]

Das Problem, dass die konkrete Fehlerstelle nicht gefunden wird, ist aber typisch für Generics. Das hat wohl jeder, der sich damit intensiver beschäftigt, irgendwann.

Kleiner Tipp:
Produziere Syntaxfehler, kompiliere und gehe dabei immer weiter nach unten in der Unit. In der Regel kannst du so die Fehlerstelle sehr genau lokalisieren. Direkt über der Stelle eingebaut wird noch der Syntaxfehler gefunden, direkt darunter ans Ende der Unit gesprungen. ;-)

[s.h.a.r.k]

Zitat:

Zitat von jaenicke (Beitrag 1149937)

Das Problem, dass die konkrete Fehlerstelle nicht gefunden wird, ist aber typisch für Generics. Das hat wohl jeder, der sich damit intensiver beschäftigt, irgendwann.

Kleiner Tipp:
Produziere Syntaxfehler, kompiliere und gehe dabei immer weiter nach unten in der Unit. In der Regel kannst du so die Fehlerstelle sehr genau lokalisieren. Direkt über der Stelle eingebaut wird noch der Syntaxfehler gefunden, direkt darunter ans Ende der Unit gesprungen. ;-)

*autsch* :wall: Also... Äh... Herzlichen Dank für den Tipp, aber selten habe ich einen dreckigeren Workaround gesehen :mrgreen: Aber gut zu wissen... Mit Generics hattte ich teilweise wahrlich so meine Probleme...

[jaenicke]

Dreckig oder nicht, Hauptsache er spart Zeit und ist im Endergebnis nicht negativ enthalten. :mrgreen:

[s.h.a.r.k]

Zitat:

Zitat von Stevie (Beitrag 1149932)

Das konkrete Problem noch nie, aber nachdem ich den von dir geposteten Code kompiliert habe und bei beiden Prozeduren der Fehler kam, blieb ja nur noch die einzige Methode in der Klasse. Und dort fiel mir dann auf, dass ein IInterface in der Tat nicht zuweisungskompatibel zu einem IBlub ist :)

An dieser Stelle muss ich leider noch nachfragen, wie ich denn den Cast hier vornehmen sollte? Das Problem ist, dass wenn ich den folgenden Code verwende, irgendwas ungültiges zurückgegeben wird, jedenfalls keine passende Interface-Referenz.

Delphi-Quellcode:

function TGenericInterfaceList<T>.Get(Index: Integer): T;
begin
  Result := T(FInterfaces[Index]);
end;

// Verwendung...
type
  IBlub = interface
    ['{4353CB3B-8829-4667-9E72-69702D43CCAE}']
    procedure Execute();
  end;

var
  BL : TGenericInterfaceList<IBlub>;
begin
  BL := TGenericInterfaceList<IBlub>.Create();
  BL.Add(TBlub.Create());

  // Funktioniert...
  (BL[0] as IBblub).Execute();
  
  // Funktioniert nicht...
  BL[0].Execute();

Hier die Fehlermeldung, die beim zweiten Aufruf von Execute erscheint:

Code:

Im Projekt Project1.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x00000001: read of address 0x00000001' aufgetreten.

Was ich schon probiert habe:

Delphi-Quellcode:

function TGenericInterfaceList<T>.Get(Index: Integer): T;
begin
  // E2015 Operator ist auf diesen Operandentyp nicht anwendbar
  Result := FInterfaces[Index] as T;

  // E2250 Es gibt keine überladene Version von 'Supports', die man mit diesen Argumenten aufrufen kann
  Supports(FInterfaces[Index], T, Result);
end;

Ich will definitiv auf diesen Cast (BL[0] as IBlub) verzichten, daher auch die Generics... Aber wie?

[stahli]

Ohne, dass ich hier wirklich mitreden könnte, finde ich verdächtig, dass Du der List ein Objekt und nicht ein Interface zuweist:

Delphi-Quellcode:

BL.Add(TBlub.Create());

Reagiert der Compiler vielleicht darauf nicht ausreichend?