请问 ppword 指向指针的数据怎么拿出来?

[Y.A.K.E]

注意,不是pword ,而是多一级指针.ppword

原型是
type
PPWord = ^PWord;







var

test_all_id: PPWord;
test_num:integer; //数据个数
i:integer;
t:word;




New(test_all_id);


...
//这里通过某个微软API得到
//test_all_id, test_num



for I := 0 to test_num-1 do
begin

t:=copy(test_all_id, sizeof(word)* i , sizeof(word) ); //报错

OutputDebugString(PWideChar(inttostr( t )));

end;


...

...

Dispose(test_all_id);


报错是:
[dcc64 Error] Unit1.pas(207): E2008 Incompatible types



test_all_id指向一个指针,那个指针指向位置就是数据,
数据有多个,有点类似word数组.

微软API执行后是OK获取到test_num是有3个数据.
然后我通过内存查看也是有3个word数据.

我就是不知道怎么取出来,转成word,或者integer型.

[Y.A.K.E]

通过

t: test_all_id^^ ;

可以得到第一个数据,但是后面的数据怎么获得?

[日立奔腾浪潮微软松下联想]

首先，启用指针算术，{$POINTERMATH ON}加入到当前.pas开头
然后
for I := 0 to test_num-1 do
begin
t := test_all_id[i]^;
// ,,,
end;

[Y.A.K.E]

引用 2 楼 早打大打打核战争 的回复:

首先，启用指针算术，{$POINTERMATH ON}加入到当前.pas开头
然后
for I := 0 to test_num-1 do
begin
t := test_all_id[i]^;
// ,,,
end;

加入{$POINTERMATH ON}后

第一个值(i:=0)是正常的,后面就抛出异常了,

请问是什么问题.

[Y.A.K.E]

{$POINTERMATH ON}
t:= pword(test_all_id^ + i) ^ ;

这样是正常的.
没搞明白原因. 不是应该加 sizeof(word)* i 么?

虽然没明白原因,不过解决了我的问题.谢谢大佬.

[日立奔腾浪潮微软松下联想]

这取决于数据的内存位置，
如果test_all_id是一个指针，指向一块内存，该内存中连续存储若干指针（PWord），每个指针指向一个word数据，那么这样写 t := test_all_id[i]^;是对的
如果test_all_id是一个指针，指向另一个指针（PWord），后者指向一块内存，该内存中连续存储若word数据，那么你那样写t:= pword(test_all_id^ + i) ^ ; 是对的，或者更简单一些t := test_all_id^[i];