控件操作有关问题

2013-12-21

控件操作问题for i : 1 to count dobeginif pinteger(monsterarr^)nil thenbeginobj:pinteger(pintege

控件操作问题
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完美经典》,都是些很浅显的书，可能适合你这种快餐型需求的

热点排行

.NET

控件操作有关问题