delphi 动态给ComBoBox赋值，从ComBoBox中取值

本文整理自网络，侵删。

 
1、把数据库中的项目信息（项目名称、项目编号）动态赋给ComBoBox
 cbProjectName.Items.Clear;
  with adoQryProject do
  begin
    First;
    while not Eof do
    begin
      ProjectNameStr := fieldByName('ProjectName').AsString;
      if Trim(ProjectNameStr) <> '' then
        cbProjectName.Items.AddObject(ProjectNameStr, TObject(fieldByName('ProjectID').AsInteger));
      Next;
    end;
  end;


2、读取ComBoBox中的值
ProjectID:= IInteger(cbProjectName.Items.Objects[cbProjectName.ItemIndex]);
ProjectName:= cbProjectName.Text;



3、快速定位到某个字段或数据:
1>、设置Combobox控件的AutoComplete属性为true即可;
2>、combobox1.ItemIndex := Combobox1.Items.IndexOf(trim(edit1.text));
 

相关阅读 >>

Delphi安卓创建pdf文件并打开

Delphi pascal 单元文件的特殊定义格式

delphDelphi chromium embedded 清除指定链接浏览器缓存、cookies

Delphi 获取系统日期时间

Delphi中的字符串

Delphi ticon保存ico文件时失真的解决办法

Delphi出现 no mapping for the unicode character exists in the target multi-byte code page 处理方法

Delphi 通过pid获取进程名

Delphi createmessagedialog

Delphi获取内存及cpu信息的函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 动态给ComBoBox赋值，从ComBoBox中取值