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

codetools: updated example for generics

Browse Source 
git-svn-id: trunk@11825 -
This commit is contained in:
mattias 2007-08-15 22:03:08 +00:00
parent 78094ff39d
commit 5c210a7a2e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/examples/scanexamples/tgeneric2.pas
View File

@ -1,12 +1,12 @@
program TGeneric2;
{$mode objfpc}
{$mode objfpc}{$H+}
type
TList =generic(T) class(TObject)
data : T;
procedure Add(item: T);
end;
generic TList<T> = class(TObject)
data : T;
procedure Add(item: T);
end;
procedure TList.Add(item: T);
var
@ -18,7 +18,7 @@ begin
end;
type
TMyStringList = specialize TList(string);
TMyStringList = specialize TList<string>;
var
slist : TMyStringList;