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 :-~