S3软件 › DELPHI › DELPHI Combobox控件赋值及取数

S3_Leo 发表于 2024-6-15 17:26:18

DELPHI Combobox控件赋值及取数

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

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

cbb1.Items//取所选择的内容





将查询返回值 写入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;

查看完整版本: DELPHI Combobox控件赋值及取数