大家帮我看看，代码出问题了。
procedure TAddStudent.BindCollege;
begin
with DM.QueryInfo do
begin
Close;
SQL.Clear;
SQL.Add('select college_id,college_name from colleges');
Open;
First;
while not Eof do
begin
cb_school.Items.AddObject(FieldByName('college_name').AsString,TObject(FieldByName('college_id').AsString));
Next;
end;
cb_school.ItemIndex:=0;
end;
end;
procedure TAddStudent.cb_schoolChange(Sender: TObject);
var ss:string;
begin
BindSpe(string(cb_school.Items.Objects[cb_school.ItemIndex])); //经过测试，在这里获取到的combobox绑定的值为''，但数据库是有值的。
end;
是不是cb_school.Items.AddObject(FieldByName('college_name').AsString,TObject(FieldByName('college_id').AsString));这个错了？大家帮我看看。
