procedure Tfrm_book_leibiemodi.Button5Click(Sender: TObject);
var
myobj:bookmn;
i:integer;
bookkind:ArrayOfBookkind ;
begin myobj:=httprio1 as bookmn;
bookkind:=myobj.getbookkind;
showmessage(inttostr(high(bookkind))); //获得数组的长度
for i:=low(bookkind) to high(bookkind) do
begin
stringgrid1.Cells[1,i+1]:=inttostr(bookkind[i].bookkindid);
stringgrid1.Cells[2,i+1]:=bookkind[i].kind;
end;
end;
==============================
showmessage() 输出的是 3
但为什么
stringgrid1.Cells[1,i+1]:=inttostr(bookkind[i].bookkindid);
stringgrid1.Cells[2,i+1]:=bookkind[i].kind;语句无法输出呢.............
郁闷.到底对象数组要注意什么...???????????
var
myobj:bookmn;
i:integer;
bookkind:ArrayOfBookkind ;
begin myobj:=httprio1 as bookmn;
bookkind:=myobj.getbookkind;
showmessage(inttostr(high(bookkind))); //获得数组的长度
for i:=low(bookkind) to high(bookkind) do
begin
stringgrid1.Cells[1,i+1]:=inttostr(bookkind[i].bookkindid);
stringgrid1.Cells[2,i+1]:=bookkind[i].kind;
end;
end;
==============================
showmessage() 输出的是 3
但为什么
stringgrid1.Cells[1,i+1]:=inttostr(bookkind[i].bookkindid);
stringgrid1.Cells[2,i+1]:=bookkind[i].kind;语句无法输出呢.............
郁闷.到底对象数组要注意什么...???????????
郁闷..想不明白...