求助

Question

该程序将一个表的字段‘bumenname'的内容，自动添加到combobox控件的Items属性中，代码如下，表是parodox的，但第一次点击combobox正常，从第二次开始，每点击一次combobox，Items的内容增加一个‘bumenname1',该如何修改。
var
bumenname1:string;
i,max:integer;
begin
 with datamodule2.bumentable do
 begin
 active:=true;
 max:=datamodule2.bumentable.recordcount;
 for i:=0 to max-1 do
 begin
 bumenname1:=datamodule2.bumentable.fieldbyname('bumenname').asstring;
 combobox1.items.add(bumenname1);
 datamodule2.bumentable.next;
 end;
 end;

Answer 1

每次从写入时，都将combobox1清空

Answer 2

问题解决了，程序中多增加了comboboxclick事件，删除后正常