Question

Delphi自定义函数用于combobox添加item问题！

在Delphi里面combobox用表字段里面的值填充的时候老是要写一大堆代码，虽然可以复制但也毕竟麻烦，哪位大侠有什么自定义的函数可以解决这个问题？即我每次用combobox的时候，只要在下拉事件中写入这个函数+参数就可以直接调用某个表里面的某个字段值，谢谢大家！

Answer 1

Function Get_item_list(tbname, fdname: String; alist: TStrings): Boolean;
Begin
alist.BeginUpdate;
alist.Clear;
Try
Try
With TADOQuery.Create(Nil) Do
Begin
Try
Close;
LockType := ltReadOnly;
Connection := Form1.ADOConnection1;
Sql.Clear;
SQL.Add(Format('select %s from %s', [fdname, tbname]));
Open;
While Not Eof Do
Begin
alist.Add(FieldByName(fdname).AsString);
Next;
End;
Close;
Finally
Free;
End;
End;
Except On E: Exception Do
Begin
Application.MessageBox(PChar(E.Message), 'msg', 64);
End;
End;
Finally
alist.EndUpdate;
End;
End;

Procedure TForm1.BitBtn2Click(Sender: TObject);
Begin
//ComboBox1.Style := csDropDownList;
Get_item_list('表名称', '字段名称', ComboBox1.Items);
End;

追问

大侠，牛人高手啊！
另外再请问下，控制选择字段的应该是这句语句吧？
SQL.Add(Format('select %s from %s', [fdname, tbname]));
如果我想在里面再添加点控制的应该怎么改？比如说我要不为空的不重复值：即要可以实现这种效果的select distinct(字段名称) from 表名 where 字段名称 is not null(这样我就可以根据需要用两个这种函数达到不同的效果了，非常感谢）

追答

自己直接加，很灵活的。
SQL.Add(Format('select distinct %s from %s where %s is not null ', [fdname, tbname, 字段2]));

Answer 2

我一般都调用这个过程，比如initComb(ADOQuery1,'select * from User','Name',Combobox1);

//初始化下拉列表
procedure InitComb(Query:TADOQuery;SqlStr:String;Field:String;CombList:TComboBox);
var
i:integer;
begin
combList.Items.Clear;
With Query do begin
Close;
SQL.Clear;
SQL.Add(SqlStr);
Open;
if not isEmpty then begin
First;
for i:=0 to RecordCount-1 do begin
Comblist.Items.Add(FieldByName(Field).AsString);
Next;
end;
end;
end;
end;

Answer 3

使用DBComboBox控件。