delphi的ArrayList

本文转载自Top.hand《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;