Информация об предметах покруг

[rufat2005]

с функцией

Procedure GetItemList();
var
i:integer;
key,key2,count,wid,id,lvl,d1,d2,d3:dword;
name:string;
typeitem:byte;
distance:single;
begin
  if connected then
  begin
    form1.StringGrid1.RowCount:=2;
    key:=getdword(OffSets_BASE_ADD);
    key:=getdword(key+$1c);
    key:=getdword(key+$1c);
    key:=getdword(key+$28);
    count:=getdword(key+$14);
    key2:=getdword(key+$18);
    for i := 0 to count-1 do
    begin

      d3:=getdword(key2+$4*i);
      d1:=getdword(d3+$4);
      wid:=getdword(d1+$110);
      form1.StringGrid1.cells[0,i+1]:=inttostr(i+1);
      form1.StringGrid1.cells[1,i+1]:=floattostr(wid);
      id:=getdword(d1+$114);
      form1.StringGrid1.cells[2,i+1]:=inttostr(id);
      typeitem:=getdword(d1+$150);
      form1.StringGrid1.cells[3,i+1]:=inttostr(typeitem);
      lvl:=getdword(d1+$154);
      form1.StringGrid1.cells[4,i+1]:=inttostr(lvl);
      d2:=getdword(d1+$168);
      name:=getWideString(hProcess,d2);
      form1.StringGrid1.cells[5,i+1]:=name;
      distance:=getsingle(d1+$158);
      form1.StringGrid1.cells[6,i+1]:=floattostr(round(distance));
      form1.StringGrid1.RowCount:=form1.StringGrid1.RowCount+1;
      ReadProcessMemory(hProcess, ptr(d3), @d3, sizeof(d3), rw);

    end;

  end;
end;

почему та получаю странные данные, иногда некоторые правильные а некоторые не правильные.. в чем может быть проблема?

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Smertig]

Цитата: Сообщение от rufat2005 count:=getdword(key+$14);

Цитата: Сообщение от rufat2005 for i := 0 to count-1 do

Вот это, как минимум, неправильно. Значение счетчика i в цикле увеличивается каждый раз, то есть не учитываются пустые ячейки массива. Размер массива всегда постоянный. Нужно сделать что-то похожее:

While (i < count) and (ii < $300) do 
begin
d3:=getdword(key2+$4*ii);
...
...
If wid <> 0 then i:=i+1;
ii:=ii+1;
end;

где i - количество найденных элементов, ii - номер элемента в массиве

Не знаком с дельфи, но примерно описал