Delphi Umgang mit Interfaces

Thema durchsuchen

Ansicht

Themen-Optionen

Umgang mit Interfaces

Ein Thema von Whookie · begonnen am 5. Dez 2013 · letzter Beitrag vom 16. Dez 2013

Vorheriger Beitrag

Nächster Beitrag

jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.857 Beiträge

Delphi 12 Athens

AW: Umgang mit Interfaces

5. Dez 2013, 17:39

So nach dem Motto würde ich das machen, ungetestet:

zusammenfalten · markieren

Delphi-Quellcode:

			TMyList = class

  private

    var

      FList: TList<IListData>;

  public

    function Get<T: IInterface>(const AIndex: Integer): T;

  end;

...

function TMyList.Get<T>(const AIndex: Integer): T;

begin

  if not Supports(FList[AIndex], Result) then

    Result := nil;