Delphi7 array of pointer 记录坐标 怎么用 来个例子

Delphi 7 中的 `array of pointer` 结构通常用于存储指向某个类型的数据结构的指针数组。如果你想记录坐标信息，你可以创建一个包含 x 和 y 轴坐标的记录类型，然后定义一个指向这个记录类型的指针数组。下面是一个简单的示例：

type // 定义坐标记录类型
  TCoordinate = record
    X, Y: Integer;
  end;

// 创建一个数组，其中每个元素都是 TCoordinate 的指针
var
  PointArray: array[0..9] of ^TCoordinate; // 使用 `^` 符号表示指针

begin
  // 初始化数组
  for I := 0 to High(PointArray) do
  begin
    PointArray[I] := @TCoordinate.Create; // 分配内存并创建新的坐标
    PointArray[I].X := I * 10; // 设置 x 坐标
    PointArray[I].Y := I * 10; // 设置 y 坐标
  end;

  // 现在可以访问数组中的坐标
  ShowMessage(InttoStr(PointArray[0].X) + ', ' + InttoStr(PointArray[0].Y)); // 输出第一个坐标

  // 如果你想释放这些分配的内存
  for I := 0 to High(PointArray) do
  begin
    FreeMem(PointArray[I]); // 释放指针所指向的内存
    PointArray[I] := nil; // 清空指针
  end;
end;

在这个例子中，我们首先定义了一个名为 `TCoordinate` 的记录类型，然后创建了一个 `array of ^TCoordinate` 类型的 `PointArray` 数组。每次循环我们都为数组中的每个元素分配一个新的 `TCoordinate` 实例，并设置其 x 和 y 值。最后别忘了释放这些动态分配的内存。