如何使用TComboBoxEx.Data属性

newsunet 2004-07-09 05:13:18
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ComCtrls, DBCtrls;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Button1: TButton;
ComboBoxEx1: TComboBoxEx;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TComboExItemEx=class(TComboExItem)
public
value:string;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
cc:TComboExItem;
p:pointer;
begin
comboboxex1.Clear;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT jczbm, jczmc FROM a_dw');
adoquery1.Open;
adoquery1.First;
while not adoquery1.Eof do
begin
getmem(p,length(adoquery1.FieldByName('jczbm').AsString));
p:=pwidechar(adoquery1.FieldByName('jczbm').AsString);
cc:=comboboxex1.ItemsEx.Add();
cc.Caption:=adoquery1.FieldByName('jczmc').AsString ;
cc.Data:=p;
adoquery1.Next;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
cc:TComboExItem;
s:string;
p:pchar;
begin
cc:=comboboxex1.ItemsEx.ComboItems[comboboxex1.ItemIndex];
p:=cc.Data;
s:=p;
showmessage(s);
showmessage(inttostr(comboboxex1.ItemIndex));
end;

end.
为什么驴唇不对马嘴?jczbm和jczmc不对应?
...全文
117 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xp2239 2004-12-15
通病相连啊!俺也遇到这个问题了!!!!
  • 打赏
  • 举报
回复
yzssg 2004-12-08
我也遇到这个情况
怎么解决的啊
  • 打赏
  • 举报
回复
xudaifei 2004-11-04
老兄我也遇到驴唇不对马嘴,请问你解决了吗?贴出来,大家一起分亨一下啊
  • 打赏
  • 举报
回复
北极海hein 2004-10-14
老况我也遇到驴唇不对马嘴,请你解决了吗?
  • 打赏
  • 举报
回复
dimdemo 2004-07-12
那不就是一个指针么?
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

5067

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-07-09 05:13
社区公告
暂无公告