|
有时候我们需要根据combobox(listbox同样）的选择项的值进行处理，但是在delphi中的Combobox的item是一个TStrings类型的对象，我们无法象c#或java中那样从combobox的选项类中继承，创建一个我们需要的类来完成任务。但是仔细研究delphi的combobox对象发现了以下的解决方法： 新建一个类，存储我们需要的数据： TItemEx=class(TObject) caption:string;
public
StringValue:string;
end; //使用adoquery中的值填充combobox
function 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）
本文地址：http://www.newbooks.com.cn/info/3204.html
|
