我想写一个函数来把ADO的数据集绑定给COMBox,代码如下:
Function bangding_cbo(var mycombo:THandle;sqlSql: String;num: Integer):Variant;
begin
openrec(sqlSql);
ARecordSet.MoveFirst;
while not ARecordSet.Eof do
begin
mycombo.Items.Add(ARecordSet.Fields[num].value);
ARecordSet.MoveNext;
end;
end;
这里mycombo应该声明为什么变量,再帮我看一下有什么错误撒...
Function bangding_cbo(var mycombo:THandle;sqlSql: String;num: Integer):Variant;
begin
openrec(sqlSql);
ARecordSet.MoveFirst;
while not ARecordSet.Eof do
begin
mycombo.Items.Add(ARecordSet.Fields[num].value);
ARecordSet.MoveNext;
end;
end;
这里mycombo应该声明为什么变量,再帮我看一下有什么错误撒...
....(var mycombo:TCombobox;...