请教遍历NPC窗口菜单名称

sherwood5

如下代码，列表框只能遍历出最后一个菜单名称，如果单独给I赋值，其它菜单也能遍历出来，但我用同样方法遍历怪物都能全部遍历出来，请大大们帮下
procedure TForm1.Button41Click(Sender: TObject);
var
  a,b,c,d:PDWORD ;
  i:Integer ;
  nl:string ;
begin
//64C81C+E0+08 NPC菜单数量
  //[[[[[64C81C]+10]+4]+4+i*4]+C0]
  try
  a:=Pointer($64C81C);
  b:=Pointer (a^+$e0);
  b:=Pointer (b^+$08);//NPC菜单数量
  a:=Pointer(a^+$10);
  a:=Pointer(a^+$4);
  for i:=1 to b^ do
  c:=Pointer(a^+4+i*$4);
  d:=Pointer(C^+$C0); //菜单名称
  nl:=PChar(d^) ;
  ListBox8.Items.Add(nl) ;
  except
  end;
end;

ツ未ヰ来ャ

for 下面用 begin end 把相应代码圈起来.否则FOR只对下一行代码生效.所以你FOR了半天 取到的都是最后一个地址.

sherwood5

谢谢，小题大错，没注意，非常感谢！

zhong1980

回复 3# sherwood5


    哦哦，看看看看