tests/test/tgeneric4.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

uses ugeneric4;

procedure LocalFill;
begin
  globaldata:='Program';
end;

type
  TMyStringList = specialize TList<string>;

var
  slist : TMyStringList;
begin
  slist := TMyStringList.Create;
  slist.Fill;
  writeln(slist.data);
  if slist.data<>'Program' then
    halt(1);
end.