source: trunk/Packages/Kernel/Kernel.List.pas

unit Kernel.List;

interface

uses
  Classes, SysUtils, Generics.Collections;

type

  { TNamedObject }

  TNamedObject = class
    Name: string;
  end;

  { TNamedObjects }

  TNamedObjects<T: class> = class(TObjectList<T>)
    function FindByName(Name: string): T;
  end;


implementation

{ TNamedObjects }

function TNamedObjects<T>.FindByName(Name: string): T;
var
  I: Integer;
begin
  I := 0;
  while (I < Count) and (TNamedObject(Items[I]).Name <> Name) do Inc(I);
  if I < Count then Result := Items[I]
    else Result := nil;
end;

end.