如何定义和使用指针型数组，请帮帮忙，请举例

Question

如何定义和使用指针型数组，请帮帮忙，请举例

Answer 1

使用TList对象更为方便，在帮助中输入“TList”可看到详细帮助。

Answer 2

pa: array[0..5] of pointer;

Answer 3

使用数组，还是使用tlist吧
也可以定义一个类。例如
TCellList = Class
  private
     Clist : TList ;
     function Get(Index: Integer): TCell;
     procedure Put(Index: Integer; cell: TCell);
  public
     Constructor Create;
     Destructor Destroy; override;
     function Count: integer;
     procedure Add(cell: TCell);
     procedure Delete(index : integer);
     function IndexOf(cell: TCell): integer;
     function First: TCell;
     function Last: TCell;
     procedure Clear;
     procedure ClearUnFree;     property Cells[index :integer]:TCell read Get write Put;default;
end;

Answer 4

pa: array[0..5] of ^TypeName;

Answer 5

type
    PMyType:^MyType;
var
    a:array[0..10] of PMyType;

Answer 6

数组本来就是一个指针啊！如果你要定义pointer型数组，那么用一楼的方法就可以了