mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 19:08:18 +02:00
5ffba57b51
Also adjusted test for report 20836 (removed unneeded units and the {$R ...} directive completely and added a "%NORUN" modifier).
git-svn-id: trunk@19817 -
25 lines
672 B
ObjectPascal
25 lines
672 B
ObjectPascal
{ %NORUN }
|
|
|
|
{ adjusted test by removing some "Lazarusisms" }
|
|
program tw20836;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
generic TGObjectChangeCommand<_T>=object
|
|
private
|
|
DoData,UnDoData:_T;
|
|
method:tmethod;
|
|
public
|
|
procedure UnDo;virtual;
|
|
end;
|
|
TCommand=specialize TGObjectChangeCommand<Integer>;
|
|
procedure TGObjectChangeCommand.UnDo;
|
|
type
|
|
TCangeMethod=procedure(const data:_T)of object;
|
|
begin
|
|
TCangeMethod(method)(UnDoData);
|
|
end;
|
|
begin
|
|
end.
|