Hallo Zusammen!

Ich wollte eine TThreadlist erweiter, da ich das herausholen eines Items etwas unhandlich finden.

Schön wäre gewesen:

zusammenfalten · markieren

Delphi-Quellcode:

var
  Que : TThreadList<IFoo>;
  Foo : IFoo;
begin
  Foo := Que.Locklist.First; // Schade
  try
    Foo.Whatever;
  finally
    Que.Unlocklist;
  end;
end;

Leider liefert das eine Exception, wenn die Liste leer ist, da ITEM[0] zugegriffen wird.

Also eine kleine Ableitung

zusammenfalten · markieren

Delphi-Quellcode:

type
    TMyThreadQue<T> = class(TThreadList<T>)
      Public
        Function PopElement(Var LCommand:T):boolean;
    end;

function TMyThreadQue<T>.PopElement(var LCommand: T): boolean;
var
  CList : TList<T>;
begin
  CList := LockList;
  try
    if CList.Count > 0
      then begin
             Result := true;
             LCommand := CList.First;
             CList.Remove(LCommand);
           end
      else begin
             Result := false;
             LCommand := NIL; // Wie geht das hier?
           end;
  finally
    UnlockList;
  end;
end;

Frage: Wie kann ein "T" initialisieren?
Oder habe ich da einen Denkfehler?

Grüsse Mavarik

Wenn alle deine möglichen T's auf Objekte beschränkt sind dann indem du

TMyThreadQue<T : class> = class(TThreadList<T>) definierst.

Stichwort "Constraints". Alternativ: LCommand := Default( T );

In Java löst man solche Probleme meist mit einer Factory, in C++ funktioniert da mit Templates problemlos

Allgemein ließe sich das umgehen, indem du LCommand := NIL; // Wie geht das hier? weglässt und den Parameter mit dem Defaultwert initialisierst oder einfach den Rückgabewert zuerst auswertest:

zusammenfalten · markieren

Delphi-Quellcode:

var
  Que : TThreadList<IFoo>;
  Foo : IFoo;
begin
  //Foo := nil;
  if Que.popElement(Foo) then
  begin
    try
      Foo.Whatever;
    finally
      Que.Unlocklist;
    end;
  end;
end;

Zitat von Daniel:

Stichwort "Constraints". Alternativ: LCommand := Default( T );

Cool...
Ich gehe davon aus, dass ein Default(Foo) = NIL ist? // Also Default(IInterface) = NIL

Mavarik