mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
26 lines
377 B
ObjectPascal
26 lines
377 B
ObjectPascal
{ %NORUN }
|
|
{$mode delphi}
|
|
{
|
|
test delphi mode
|
|
}
|
|
program tgenconst6;
|
|
|
|
type
|
|
TList<T; const U: integer> = class
|
|
list: array[0..U-1] of T;
|
|
function capacity: integer;
|
|
end;
|
|
|
|
function TList<T; U>.capacity: integer;
|
|
begin
|
|
result := U;
|
|
end;
|
|
|
|
var
|
|
nums:TList<integer,16>;
|
|
strs:TList<string,16>;
|
|
begin
|
|
nums := TList<integer,16>.Create;
|
|
strs := TList<string,16>.Create;
|
|
end.
|