16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
type
TDoubleArray = array of Double; // 定义动态数组类
PDoubleArray = ^TDoubleArray; // 定义指向动态数组的指针
var
A:TDoubleArray; // 声明动态数组的变量
pop: pDoubleArray; // 声明动态数组指针的变量
M,D:integer; // 声明决定动态数组大小的变量
begin
M:=12;
D:=11;
setlength(A,M*D); // 设置动态数组A的长度
pop:=@A; // 将动态数组A的地址引入 Pop指针变量
end;
上述代码运行正常,可以说明你的问题了。