delphi 中的combobox　问题

深海线 2009-01-19 04:31:13

combobox 的属性items本身就有’男’和’女’这两个项．
数据库里的表里有:'0' 和 '1' 当我读取数据库里的表里的项为0时．如何让combobox 里显示为 '男'　刚学delphi　请多指点．

...全文

101 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

深海线 2009-01-19

打赏
举报

谢谢各位热情的帮忙．

　４楼的不错．

深海线 2009-01-19

打赏
举报

是不是这样写：

if combobox1.text:=adoquery1.FieldByName('tt_sex').AsString=0 then
combobox1.itemindex := 0
else
combobox1.itemindex := 1;

但提示出错啊，[Error] main.pas(354): Incompatible types: 'String' and 'Integer'

wwwzxl 2009-01-19

打赏
举报

[Quote=引用 3 楼 rouqing 的回复:]
写错了，if ..FieldByName('字段名').AsString='0' then ...
[/Quote]支持

starluck 2009-01-19

打赏
举报

[Quote=引用楼主 josonwei 的帖子:]
combobox 的属性items本身就有’男’和’女’这两个项．
数据库里的表里有:'0' 和 '1' 当我读取数据库里的表里的项为0时．如何让combobox 里显示为 '男'　刚学delphi　请多指点．
[/Quote]





combobox1.items.clear;

combobox1.items.append('男');

combobox1.items.Append('女');



if qry.fieldbyname(colName).asstring = '0' then combobox1.itemindex := 0 

  else combobox1.itemindex := 1;