mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
28 lines
525 B
ObjectPascal
28 lines
525 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw21622;
|
|
|
|
{$MODE DELPHI}
|
|
{$DEFINE CAUSE_ERROR}
|
|
|
|
type
|
|
TProceduralMethod<T> = procedure (arg: T) of object;
|
|
|
|
TWrapper<T> = class
|
|
strict private
|
|
type
|
|
TOnChanging = TProceduralMethod<T>;
|
|
{ Replace T with e.g. Integer, the problem persists }
|
|
strict private
|
|
{$IFDEF CAUSE_ERROR}
|
|
FOnChanging: TOnChanging;
|
|
{ Error: Generics without specialization cannot be used as a type for
|
|
a variable }
|
|
{$ELSE}
|
|
FOnChanging: TProceduralMethod<T>;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
begin
|
|
end.
|