取的Combobox中的所选择项的值
来源:互联网 发布:淘宝售后投诉 编辑:程序博客网 时间:2024/06/04 19:46
有时候我们需要根据Combobox(listbox同样)的选择项的值进行处理,但是在delphi中的Combobox的item是一个TStrings类型的对象,我们无法象c#或java中那样从Combobox的选项类中继承,创建一个我们需要的类来完成任务。但是仔细研究delphi的Combobox对象发现了以下的解决方法:
新建一个类,存储我们需要的数据:
TItemEx=class(TObject) caption:string; public StringValue:string;end;
//使用adoquery中的值填充Comboboxfunction FillInComboboxWithAdoQuery(objAdoQuery:TAdoQuery;objCombobox:TCombobox;sql:string;captionFieldName:string;valueFieldName:string;noAsFirst:boolean):boolean;
//当noAsFirst为true是,Combobox的第一项是'无'var objItemEx:TItemEx;begin objCombobox.Clear; objCombobox.ItemIndex:=-1; if noAsFirst then begin objItemEx:=TItemEx.Create; objItemEx.caption:='无'; objItemEx.StringValue:=''; objCombobox.Items.AddObject(objItemEx.caption,objItemEx); objCombobox.ItemIndex:=0; end; objAdoQuery.Close; objAdoQuery.SQL.Clear; objAdoQuery.SQL.Add(sql); objAdoQuery.Open; objAdoQuery.First; while not objAdoQuery.Eof do begin objItemEx:=TItemEx.Create; objItemEx.caption:=objAdoQuery.FieldByName(captionFieldName).AsString; objItemEx.StringValue:=objAdoQuery.FieldByName(valueFieldName).AsString; objCombobox.Items.AddObject(objItemEx.caption,objItemEx); objAdoQuery.Next; end; objAdoQuery.close; result:=true;end;
//取得comboobx中被选定向的制function GetComboboxSelectedStringValue(objCombobox:TCombobox):string;var objItemEx:TItemEx;begin if (objCombobox.ItemIndex>-1 ) then begin objItemEx:=(objCombobox.Items.Objects[objCombobox.ItemIndex] as TItemEx); result:=objItemEx.StringValue; end else begin result:=''; end;end;
listbox的解决方法与此类似。
(www.sinoprise.com)
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>- 取的Combobox中的所选择项的值
- 取的Combobox中的所选择项的值
- ComboBox的取值问题
- ExtJs的ComboBox赋值与取值
- easyui-combobox的取值问题
- 选择图标的ComboBox
- 选择图标的ComboBox
- combobox的选择事件
- 如何通combobox中的select标签选择不同的值展示不同的echarts图标
- 能选择颜色的ComboBox
- 两个ComboBox的取值问题 注册事件的时机
- comboBox控件SelectedIndexChanged时的取值问题
- Ext内取comboBox上的显示值
- ExtJS -- form提交之取ComboBox的值
- 根据combobox选择的index来获取值
- 选择所喜欢的选择 喜欢所选择的喜欢
- EXT.NET 选择ComboBox下拉框中的值,另外一个下拉框的显示状态跟着变化
- dwz tree 取得所选择的值
- delphi中的split函数
- 如何快速的导出WORD(包括图片,页眉,页脚,水印)
- 在PHP中使用正则表达式
- 函数详解(1)
- 匹配文本中所有图片的url的一个小正则表达式
- 取的Combobox中的所选择项的值
- lucene多字段查询
- 函数详解(2)
- 自动化每日构建(二)用Ant来完成java工程的每日构建
- 函数详解(3)
- orangehrm-2.2.2.2 中文包
- 基于Web的系统测试方法
- 使DBGrid的列自动调整到何时大小
- 左轮网吧私人存档 以及比较普及的CMD私人存档破解