mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
27 lines
420 B
ObjectPascal
27 lines
420 B
ObjectPascal
unit tw40293;
|
|
{$mode objfpc}{$H+}
|
|
interface
|
|
|
|
type
|
|
ftest1 = class
|
|
private
|
|
procedure setValue(value: specialize TArray<String>);
|
|
function getValue(): specialize TArray<String>;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses sysutils; // compile error if uncommented
|
|
|
|
procedure ftest1.setValue(value: specialize TArray<String>);
|
|
begin
|
|
end;
|
|
|
|
function ftest1.getValue(): specialize TArray<String>;
|
|
begin
|
|
end;
|
|
|
|
end.
|
|
|