当前位置:编程学习 > Delphi >>

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);

这样循环的开辟空间,能解释下吗

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,