定义combobox的过程错误

[Delphi小叮当]

我在测试delphi操作Mysql的时候

我想写一个刷新数据库到combobox中的过程

代码我是这么写的 我是想的是 写一个过程 以后想在哪一个combobox中刷新数据就把combobox当做变量传入

procedure TDataModule1.sxcombox(biaom,zhim:string; com:TComboBox);
 var     //统一刷新数据的过程
  i:integer;
 begin
 with DataModule1.adoquery2 do
 begin
close;
sql.text:='select * from '+trim(biaom);
open;
com.items.clear;
while not eof do
begin
  com.items.add(fieldByname(zhim).asstring);
  next;
end;
end;
end;

我在文件开头定义 procedure sxcombox(biaom,zhim:string; Com:TComboBox);

可是编译就出错

[dcc32 Error] date.pas(20): E2003 Undeclared identifier: 'TComboBox'

这样应该如何修改呢？？ 求指导

[s11ss]

uses StdCtrls; 就是说如果要用TComboBox,就需要知道他在哪个单元并引用这个单元。如何知道？在帮助中搜TComboBox即可。

[-HelloWorld-]

引用 1 楼 s11ss 的回复:

uses StdCtrls; 就是说如果要用TComboBox,就需要知道他在哪个单元并引用这个单元。如何知道？在帮助中搜TComboBox即可。

+1

[五哥]

在文件开始的 uses 中把 TComboBox所在的单元文件引进来 。

[Delphi小叮当]

非常感谢 小弟学习了~