DELPHI Combobox控件赋值及取数

S3_Leo

For I:=0 to N do
Begin
  cbb1.Items.Add(INIW.ReadString('IP_'+IntToStr(I),'IP',''));
End;

cbb1.ItemIndex:=1   指定显示第几项

cbb1.Items[cbb1.ItemIndex]  //取所选择的内容





将查询返回值 写入Combobox

ComboBox.Items.BeginUpdate;   
try      ComboBox.Items.Clear;     
for i := 0 to Query.RecordCount - 1 do     
begin        
Query.RecNo := i + 1; // 移动到当前记录        
ComboBox.Items.Add(Query.FieldByName('FieldName').AsString); // 假设我们要添加名为'FieldName'的字段      
end;   
finally      
ComboBox.Items.EndUpdate;   
end;  
finally   
Query.Free; // 释放资源  
end;


-------------------

with ADOQuery1 do    //从CREATE搬到此处
  begin
    Close;
    ConnectionString := frmLogViewer.ConnectStringDSC;
    SQL.Clear;
    SQL.Add('Select MB001,MB002,MB003 from DSCMB');
    try
      Open;
        if ADOQuery1.Active then
        begin

        end
        else begin
          ShowMessage('请确认能正常打开易飞的登陆界面后再来查询！！！');
          Abort;
        end;
      if IsEmpty then Exit;
      First;
      FCompanyList.Clear;
      FCompanyIDList.Clear;
      cboCompany.Items.Clear;
      while not Eof do
      begin
        FCompanyIDList.Add(trim(FieldByName('MB001').AsString)); //公司编号
        cboCompany.Items.Add(trim(FieldByName('MB002').AsString)); //公司简称
        FCompanyList.Add(trim(FieldByName('MB003').AsString)); //数据库名称
        cbb4.Items.Add(trim(FieldByName('MB002').AsString)); //公司简称
        Next;
      end;
    except
      on E: Exception do
      begin
          ShowMessage('请确认能正常打开易飞的登陆界面后再来查询！！！');
          Abort;
      end;
    end;
  end;