定义combobox的过程异常
定义combobox的过程错误
我想写一个刷新数据库到combobox中的过程
代码我是这么写的 我是想的是 写一个过程 以后想在哪一个combobox中刷新数据就把combobox当做变量传入
我在文件开头定义 procedure sxcombox(biaom,zhim:string; Com:TComboBox);
可是编译就出错
[dcc32 Error] date.pas(20): E2003 Undeclared identifier: 'TComboBox'
这样应该如何修改呢？？ 求指导
------解决方案--------------------
uses StdCtrls;
就是说如果要用TComboBox,就需要知道他在哪个单元并引用这个单元。如何知道？在帮助中搜TComboBox即可。
------解决方案--------------------
+1
本帖最后由 huaipiqi_net 于 2012-12-23 12:16:04 编辑
我在测试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'
这样应该如何修改呢？？ 求指导
------解决方案--------------------
uses StdCtrls;
就是说如果要用TComboBox,就需要知道他在哪个单元并引用这个单元。如何知道？在帮助中搜TComboBox即可。
------解决方案--------------------
+1