blob: d82dc188bfeadeef5e3a043e15f720bcfe336f88 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{$mode objfpc}
program test;
uses
fgl;
type
TIntList = specialize TFPGList<Integer>;
var
A, B: TIntList;
i: Integer;
begin
A := TIntList.Create;
B := TIntList.Create;
for i := 0 to 9 do
A.Add(i);
B.Assign(A);
for i:= 0 to 9 do
begin
if B[i] <> i then
Halt(1);
end;
end.
|
