mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 11:08:02 +02:00
28 lines
302 B
ObjectPascal
28 lines
302 B
ObjectPascal
program generictest5;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
type
|
|
|
|
TRec<T> = record
|
|
Value : T;
|
|
end;
|
|
TRecArray<T> = array of TRec<T>;
|
|
|
|
{ TFoo }
|
|
|
|
TFoo<T> = class
|
|
FArr : TRecArray<T>;
|
|
procedure Test;
|
|
end;
|
|
|
|
{ TFoo<T> }
|
|
|
|
procedure TFoo<T>.Test;
|
|
begin
|
|
SetLength(FArr, 1);
|
|
end;
|
|
|
|
begin
|
|
end.
|