combobox中的change事件

Question

为什么cbbfrequent的text总是被清空了。procedure Tmainform.CBBfrequentChange(Sender: TObject);
begin
  cbbfrequent.items.Clear ;
  addNametoTComboBox(cbbfrequent.Text,cbbfrequent);
end;
procedure addNametoTComboBox(inpy:string;cobox:TComboBox);
var
  i:integer;
begin
  if inpy='' then
  with getallrecd do
    for i:=1 to RecordCount do
    begin
      cobox.Items.Add(FieldByName('name').AsString);
      next;
    end
    else
    with getPyRecd(inpy)  do
      for i:=1 to RecordCount do
      begin
        cobox.Items.Add(FieldByName('name').AsString);
        next;
      end;
end;

Answer 1

肯定会被清了啊！
除非你在 addNametoTComboBox 过程的 最后加上一句：
if cobox.items.count>0 then
  cobox.ItemIndex:=0;

Answer 2

同意，你要为它指定一个ItemIndex才会有选中对象，combobox才会显示内容。