Generic ObjectList und Suchen - Wie am besten ?

[OlafSt]

Okay, schlagendes Argument. Doch wo ist die Schleife, die durch alle Items iteriert ? Ich sehe da nur eine Vergleichsfunction - oder krieg ich da was nicht mit ?

[Edit]Ich bin ein Depp. Die Schleife mache ich selbst, ich Hirni
[Edit2] Sorry, ich kapiers doch nicht
[Edit3] Etwa so:

Delphi-Quellcode:

function TMyObjectList<T>.Find(const Predicate: TPredicate<T>): T;
begin
     for Result in self do
          if Predicate(T) then
             exit;
     Result:=nil;
end;

function TMyObjectList<T>.FindByID(AID: integer): T;
begin
     self.Find(function(Obj: TDriverBase): boolean begin Result:=Obj.DriverID = AID; end);
end;

Na, ob das wirklich funktioniert :-~