paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 06:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: tests: generics

Browse Source 
git-svn-id: trunk@50349 -
This commit is contained in:
mattias 2015-11-16 22:23:22 +00:00
parent 399acc7c84
commit c14048ae32
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/tests/fdt_generics.pas
View File

@ -19,8 +19,11 @@ type
CustomName: GenParam2; CustomName: GenParam2;
end; end;
{ TGenAction }
generic TGenAction<GenParam3> = class(specialize TGenCustomAction{declaration:fdt_generics.TGenCustomAction}<GenParam3>) generic TGenAction<GenParam3> = class(specialize TGenCustomAction{declaration:fdt_generics.TGenCustomAction}<GenParam3>)
ActionName: GenParam3; ActionName: GenParam3;
procedure InitActionName;
end; end;
TIntegerAction = specialize TGenAction<integer>; TIntegerAction = specialize TGenAction<integer>;
@ -34,5 +37,12 @@ begin
Action.ActionName{declaration:fdt_generics.TGenAction.ActionName}:=3; Action.ActionName{declaration:fdt_generics.TGenAction.ActionName}:=3;
end; end;
{ TGenAction }
procedure TGenAction.InitActionName;
begin
ActionName{declaration:fdt_generics.TGenAction.ActionName}:=3;
end;
end. end.