mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 20:29:32 +02:00
f8e55c4350
U compiler/defcmp.pas U compiler/node.pas U compiler/pexpr.pas A tests/webtbs/tw34037.pp -- Aufzeichnung der Informationen für Zusammenführung von r39934 in ».«: U . git-svn-id: branches/fixes_3_2@47421 -
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.
|