Ignore:
Timestamp:
Aug 29, 2016, 5:17:45 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Removed duplicit files moved previously to Kernel package.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        33lib
        44heaptrclog.trc
         5ChronOS.exe

  • trunk/Packages/Kernel

    • Property svn:ignore set to
      lib

  • trunk/Packages/Kernel/UList.pas

    r8 r9  
    66
    77uses
    8   Classes, SysUtils, Contnrs;
     8  Classes, SysUtils, Contnrs, fgl;
    99
    1010type
    … …  
    1818  { TNamedObjectList }
    1919
    20   TNamedObjectList = class(TObjectList)
    21     function FindByName(Name: string): TNamedObject;
     20  TNamedObjectList<T> = class(TFPGObjectList<T>)
     21    function FindByName(Name: string): T;
    2222  end;
    2323
    … …  
    2727{ TNamedObjectList }
    2828
    29 function TNamedObjectList.FindByName(Name: string): TNamedObject;
     29function TNamedObjectList<T>.FindByName(Name: string): T;
    3030var
    3131  I: Integer;
    … …  
    3333  I := 0;
    3434  while (I < Count) and (TNamedObject(Items[I]).Name <> Name) do Inc(I);
    35   if I < Count then Result := TNamedObject(Items[I])
     35  if I < Count then Result := Items[I]
    3636    else Result := nil;
    3737end;
Note: See TracChangeset for help on using the changeset viewer.