delphi的ArrayList

delphi可以用Classes.TList类来实现ArrayList功能.
注意:add()方法存入的类型是TPoint,所以必须根据
实际类型定义好相关的指针类型.

procedure TForm1.Button1Click(Sender: TObject);
var
aa:TList;
a1,a2:String;
tt:^String; //因为前面定义的a1,a2是String,所以这里也要定义一个^String.
begin
aa:= TList.Create;
a1:= '123';
a2:= '456';
aa.Add(@a1);
aa.Add(@a2);
showMessage( IntToStr(aa.Count) );
tt:= aa.Items[1];
showMessage( tt^ );
aa.Destroy;
end;