paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:59:14 +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; program TGeneric2;
{$mode objfpc} {$mode objfpc}{$H+}
type type
TList =generic(T) class(TObject) generic TList<T> = class(TObject)
data : T; data : T;
procedure Add(item: T); procedure Add(item: T);
end; end;
procedure TList.Add(item: T); procedure TList.Add(item: T);
var var
@ -18,7 +18,7 @@ begin
end; end;
type type
TMyStringList = specialize TList(string); TMyStringList = specialize TList<string>;
var var
slist : TMyStringList; slist : TMyStringList;