控件操作问题
for i := 1 to count do
begin
if pinteger(monsterarr^)<>nil then
begin
obj:=pinteger(pinteger(monsterarr)^+$4);
// form1.ListView1.items.add.caption:= WideCharTostring(getname(obj));
form1.ListView1.items.add.caption:= inttostr(i);
form1.ListView1.items.Add.subitems.Add(inttostr(gettype(obj)));
form1.ListView1.Items.Add.SubItems.add(inttohex(getmonsterID(obj),8));
form1.ListView1.Items.add.subitems.add(floattostr(getHP(obj)*100)+'%');
form1.ListView1.Items.Add.SubItems.add(inttostr(getgrade(obj)));
form1.ListView1.Items.Add.subitems.add(getxyz(obj));


end;
inc(monsterarr);
end;


怎么变成这样了？想一行行排列出。前面的i值怎么不是1.2.3....？
[解决办法]
或是 《delphi7完美经典》,都是些很浅显的书，可能适合你这种快餐型需求的