mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 18:47:52 +02:00
22 lines
246 B
ObjectPascal
22 lines
246 B
ObjectPascal
{ %fail }
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
generic TGenMap<T> = class(TObject)
|
|
function Add(const AKey: T): T;
|
|
end;
|
|
|
|
function TGenMap.Add(const AKey: T): T;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
a: TGenMap;
|
|
begin
|
|
a := TGenMap.Create;
|
|
|
|
a.Add(5);
|
|
|
|
a.Free;
|
|
end.
|