mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:28:55 +02:00
22 lines
341 B
ObjectPascal
22 lines
341 B
ObjectPascal
program project1;
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, FGL;
|
|
|
|
type
|
|
TBaseClass = class (TObject)
|
|
end;
|
|
|
|
generic TFPGObjectListEx<T: TBaseClass> = class (specialize TFPGObjectList<T>)
|
|
function GetItemByID(AID: Integer): T;
|
|
end;
|
|
|
|
function TFPGObjectListEx.GetItemByID(AID: Integer): T;
|
|
begin
|
|
Result:=nil; //T(nil);
|
|
end;
|
|
|
|
begin
|
|
end.
|