大家帮我看看，代码出问题了。

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));这个错了？大家帮我看看。

[解决办法]

引用:

实在是没分了，希望大家帮忙看看！

cb_school.Items.AddObject(FieldByName('college_name').AsString,TObject(FieldByName('college_id').AsString));

修改为

cb_school.Items.AddObject(FieldByName('college_name').AsString,TObject(FieldByName('college_id').AsInteger));


BindSpe(string(cb_school.Items.Objects[cb_school.ItemIndex]));

修改为

BindSpe的参数改为Integer

procedure BindSpe(iCollegeID: string);

BindSpe(Integer(cb_school.Items.Objects[cb_school.ItemIndex]));