Active :=false; CommandText :='select * from table; Active :=True; if recordcount<>0 then begin for intI:=1 to recordcount do begin flatcombobox1.Items.AddObject(trim(fieldbyname('a').asstring),TObject(fieldbyname('b').asinteger)) ; next; end; end;现在我想把那个整型值取出来就要强制转换呀
CommandText :='select * from table;
Active :=True; if recordcount<>0 then
begin
for intI:=1 to recordcount do
begin
flatcombobox1.Items.AddObject(trim(fieldbyname('a').asstring),TObject(fieldbyname('b').asinteger)) ; next;
end;
end;现在我想把那个整型值取出来就要强制转换呀
a:TObject;
begin
Integer(a);
请告之