Generische Interface-Liste

[einbeliebigername]

Hallo,

Zitat von s.h.a.r.k:

Delphi-Quellcode:

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

Mit Interfaces in Verbindung mit generischen Listen habe ich zwar noch nichts gemacht aber sollte es nicht so gehen?

Delphi-Quellcode:

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

Und dann ohne Cast.

einbeliebigername.

[mjustin]

Zitat:

Ziel des ganzen soll es sein TInterfaceList durch eine generische, einfachere Liste zu ersetzen.

Ginge das nicht auch mit Generics.Collections.TList<IMeinInterface> ?

[Stevie]

@Stahli: Da das Add von der generischen Liste ist, wird der Wert, der dort reingegeben wird, vom Typ T sein

Lösung:

Delphi-Quellcode:

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

Warum kein cast oder Supports? Na, weil das Interface, was du beim Add hineingibst, schon vom Typ T ist, was aber auch ein IInterface ist (Typeconstraint). Deshalb stehen in FInterfaces immer interface Referenzen vom Typ T. Und deshalb kannst du es einfach wieder umcasten.

@XE2 Benutzer:
Hier wurden (mit Update 3 glaube ich) die Typecasts bei Generics etwas restriktiver. Deshalb muss man dort bei manchen solcher Typecasts einen kleinen Umweg über PPointer gehen. Das aber, meine ich mich zu erinnern, nur wenn man von T auf einen konkreten Typ möchte, welcher zwar durch die Programmlogik korrekt ist aber nicht über einen Typeconstraint gegeben ist.

Zitat von mjustin:

Zitat:

Ziel des ganzen soll es sein TInterfaceList durch eine generische, einfachere Liste zu ersetzen.

Ginge das nicht auch mit Generics.Collections.TList<IMeinInterface> ?

Generics.Collections Klassen haben keine Interfaces.

[stahli]

Zitat von Stevie:

@Stahli: Da das Add von der generischen Liste ist, wird der Wert, der dort reingegeben wird, vom Typ T sein

Ja epent!

Ich hätte mir vorstellen können, dass man der Liste ein Interface (IBlub) zuweisen muss, statt einem Objekt (TBlub).

Delphi-Quellcode:

// also statt:
  BL := TGenericInterfaceList<IBlub>.Create();
  BL.Add(TBlub.Create());

// besser:
  BL := TGenericInterfaceList<IBlub>.Create();
  BL.Add(TBlub.Create() as IBlub);

... oder so. Ich hätte erwartet, dass der Compiler ein Objekt direkt ablehnt.

Aber ich steige hier erst mal besser wieder aus und rede in 1-2 Jahren wieder zu dem Thema mit.

[Stevie]

Zitat von stahli:

Zitat von Stevie:

@Stahli: Da das Add von der generischen Liste ist, wird der Wert, der dort reingegeben wird, vom Typ T sein

Ja epent!

Nur, weil da TBlub.Create steht, wird noch lang kein TBlub in Add hineingegeben, sondern ein IBlub, denn das ist in diesem Fall T. Wenn eine Klasse A ein Interface B implementiert, sind Instanzen von Klasse A davon direkt zuweisungskompatibel zu Variablen vom Interface B.

[s.h.a.r.k]

Zitat von Stevie:

Lösung:

Delphi-Quellcode:

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

Genau diese Lösung habe ich ja im Moment und diese funktioniert nicht!

Zitat von Stevie:

@XE2 Benutzer:
Hier wurden (mit Update 3 glaube ich) die Typecasts bei Generics etwas restriktiver. Deshalb muss man dort bei manchen solcher Typecasts einen kleinen Umweg über PPointer gehen. Das aber, meine ich mich zu erinnern, nur wenn man von T auf einen konkreten Typ möchte, welcher zwar durch die Programmlogik korrekt ist aber nicht über einen Typeconstraint gegeben ist.

Hast du hierzu mehr Informationen? Was genau in Bezug auf PPointer? Ich habe XE2, Update 3 installiert (und ja, ich weiß, dass es Update 4 gibt) und obige Lösung funktioniert leider nicht Ich habe echt keine Ahnung warum nicht... Sowas nervt ungemein...

Zitat von Stevie:

Generics.Collections Klassen haben keine Interfaces.

Darüber hatte ich mich ja gewundert und daher habe ich diese Liste entworfen...

[Stevie]

Hätt schwören können, da stand gestern was anderes, egal.

Hab nicht dran gedacht, dass beim Add in die TInterfaceList auch nen QueryInterface gemacht wird, also wird T dann wieder auf IInterface "gecastet". Das musst du dann beim Get wieder umdrehen:

Delphi-Quellcode:

function TGenericInterfaceList<T>.Get(Index: Integer): T;
begin
  FInterfaces[Index].QueryInterface(GetTypeData(TypeInfo(T)).Guid, Result);
end;

Bis XE2 Update 2 ging folgendes:

Delphi-Quellcode:

type
  TFoo<T> = class
    FValue: T;
    function GetAsObject: TObject;
  end;

function TFoo<T>.GetAsObject: TObject;
begin
  Result := TObject(FValue);
end;

"Mach doch nen constraint drauf" mag jemand sagen. Stimmt, solang ich nur Objekte reinpacken will. Eventuell will ich aber Interfaces und Objekte damit verwalten und dann macht sowas eventuell Sinn.

Jedenfalls muss man ab Update 3 dann sowas schreiben:

Delphi-Quellcode:

function TFoo<T>.GetAsObject: TObject;
begin
  Result := TObject(PPointer(@FValue)^);
end;

Wenn du generische Listen mit entsprechenden Interfaces haben möchtest, schau dir eventuell Delphi Coll oder Spring an.

[s.h.a.r.k]

Zitat von Stevie:

Hätt schwören können, da stand gestern was anderes, egal.

Hab nicht dran gedacht, dass beim Add in die TInterfaceList auch nen QueryInterface gemacht wird, also wird T dann wieder auf IInterface "gecastet". Das musst du dann beim Get wieder umdrehen:

Delphi-Quellcode:

function TGenericInterfaceList<T>.Get(Index: Integer): T;
begin
  FInterfaces[Index].QueryInterface(GetTypeData(TypeInfo(T)).Guid, Result);
end;

Wuhu... Das funktioniert einwandfrei!!! Danke dir vielmals! Jetzt weiß ich auch, wie man an die GUID eines Interfaces kommt. Tausend Dank!