Delphi 如何创建有效指针列表
我需要一个有效的指针列表,不用数组。我这里有效的意思就是说可以对这个列表中的某个指针进行取值或赋值。并且还能动态管理这个指针列表。我用到了Delphi中的泛型,这是新版本中所具有的,下面是代码,不知道是否合理,大家有什么更好的办法吗?
uses
Generics.Collections;
var
// 指针列表
tP: TList<Pointer>;
procedure TForm2.Button1Click(Sender: TObject);
var
p: PInteger;
i: Integer;
begin
for i := 1 to 100 do
begin
// 这样是否合理
New(p);
tP.Add(p);
end;
end;
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
i: Integer;
begin
for i := 0 to tP.Count - 1 do
Dispose(PInteger(tP.Items[i]));
tP.Free;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
tP := TList<Pointer>.Create;
end;
追问:New(p);
这样循环的开辟空间,能解释下吗