Question

问个Delphi中Pointer转数组的问题

我有个函数：procedure ProcessSomething ( pArr: Pointer );
其中入参pArr是一个指向Integer类型数组的指针
请问我如何把这个pArr转换成Integer数组，以便于我处理这个数组中的内容？

Answer 1

type //定义类型
TIntArr = array of Integer;

procedure Main();
var a: array of Integer;
pArr: ^TInts
begin
SetLength(a, 3);
a[0]:= 0;
a[1]:= 1;
a[2]:= 2;
pArr:= @a; //赋值时
ProcessSomething ( pArr); //调用以下
end;

procedure ProcessSomething ( pArr: ^TInts); //动态数组的指针
var i: Integer;
begin
i:= pArr^[0]; //取值时
end;