s:='aaaa';
self.cmbClient.Items.AddObject(trim(FieldValues['ClientIP']),TObject(s));showmessage(string(cmbClient.Items.Objects[cmbClient.ItemIndex]));
以上没有问题。s:=trim(FieldValues['ClientNO']);
showmessage(s);
self.cmbClient.Items.AddObject(trim(FieldValues['ClientIP']),TObject(s));showmessage(string(cmbClient.Items.Objects[cmbClient.ItemIndex]));显示出s值为'aaaa',也就是说trim(FieldValues['ClientNO']='aaaa',但绑定到combox结果不对
self.cmbClient.Items.AddObject(trim(FieldValues['ClientIP']),TObject(s));showmessage(string(cmbClient.Items.Objects[cmbClient.ItemIndex]));
以上没有问题。s:=trim(FieldValues['ClientNO']);
showmessage(s);
self.cmbClient.Items.AddObject(trim(FieldValues['ClientIP']),TObject(s));showmessage(string(cmbClient.Items.Objects[cmbClient.ItemIndex]));显示出s值为'aaaa',也就是说trim(FieldValues['ClientNO']='aaaa',但绑定到combox结果不对
解决方案 »
- DELPHI如何将内容输入到另一个软件登录框
- bds2006 components 加入tool palette
- sql server 2000 如何插入多条记录?
- 请问一个关于流式套接字的问题?
- 为什么要进行把String类型转换成char,再MessageBox呢?
- 谁用过Absolute Database控件?
- 我用HOOK截获过鼠标键盘消息!如何用HOOK截获游戏上的文字呀!!???
- 关于数据库连接的问题,用ConnectionString可以连上sql server 2k,可是打开窗体时出错了?
- 一定给分!!!哪有Object Pascal 的中文参考手册?
- 如何结束一个应用程序进程?
- 在dll中使用synchronize的问题
- Delphi 2007(with Vista Support)来了!新用点预览
type
TS=class
private
s:string;
end
var
a:TS; s:=trim(FieldValues['ClientNO']);
showmessage(s);
a:=TS.create;
a:=s;
self.cmbClient.Items.AddObject(trim(FieldValues['ClientIP']),a);showmessage(TS(cmbClient.Items.Objects[cmbClient.ItemIndex]).s);
最后要记得释放内存
showmessage(s);
a:=TS.create;
a.s:=s;
self.cmbClient.Items.AddObject(trim(FieldValues['ClientIP']),a);showmessage(TS(cmbClient.Items.Objects[cmbClient.ItemIndex]).s);
self.cmbClient.Items.AddObject(trim(FieldValues['ClientIP']),TObject(s));
这句后面的TObject(s)虽然可以编译过去,但是执行错误的。因为将字符串变量本身转化成TObject类型的对象是不可以的。