20 lines
349 B
ObjectPascal
20 lines
349 B
ObjectPascal
program ListDemo;
|
|
uses
|
|
classes;
|
|
var
|
|
MyList: TList;
|
|
a, b, c: integer;
|
|
i: integer;
|
|
begin
|
|
a := 1;
|
|
b := 2;
|
|
c := 3;
|
|
MyList := TList.Create;
|
|
MyList.Add(@a);
|
|
MyList.Add(@c);
|
|
MyList.Insert(1, @b);
|
|
for i := MyList.IndexOf(MyList.First) to MyList.IndexOf(MyList.Last) do
|
|
writeln (integer(MyList.Items[i]^));
|
|
MyList.Destroy;
|
|
end.
|