Generische Interface-Liste

[s.h.a.r.k]

Zitat von 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

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?