如何使用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不对应?
...全文
158 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
xp2239 2004-12-15
  • 打赏
  • 举报
回复
通病相连啊!俺也遇到这个问题了!!!!
yzssg 2004-12-08
  • 打赏
  • 举报
回复
我也遇到这个情况
怎么解决的啊
xudaifei 2004-11-04
  • 打赏
  • 举报
回复
老兄我也遇到驴唇不对马嘴,请问你解决了吗?贴出来,大家一起分亨一下啊
北极海hein 2004-10-14
  • 打赏
  • 举报
回复
老况我也遇到驴唇不对马嘴,请你解决了吗?
dimdemo 2004-07-12
  • 打赏
  • 举报
回复
那不就是一个指针么?

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧