16,747
社区成员




//monsterarr:= pint(pint(getmonsterlist)^+$8);getmonsterlist本来就是PINT,你再转PINT干什么
monsterarr:= pint(getmonsterlist^+$8);
for I := 0 to count - 1 do
begin
obj := monsterarr^;
if obj > 0 then
begin
end;
Inc(monsterarr); // 指针递增1,增加4个字节,指向下一个 integer
end;