var CB:TComboBox;
    aaa:integer;
    cm,ck:integer;
.........
.........cm:= CB.items.count;
 for ck:=1 to cm do
   if CB.items[ck]<>inttostr(aaa) then
      CB.items.add(inttostr(aaa));
用CB.items[ck]好像不对,要用什么?谢谢

解决方案 »

  1.   

    应该从0开始:
    cm:= CB.items.count;
     for ck:=0 to cm-1 do
       if CB.items[ck]<>inttostr(aaa) then
          CB.items.add(inttostr(aaa));而且不用这么麻烦,这样就可以了:
    if CB.items.indexof(inttostr(aaa)) = -1 then
      CB.items.add(inttostr(aaa));
      

  2.   

    if inttostr(CB.items[ck])<>(aaa) then
          CB.items.add(inttostr(aaa));
      

  3.   

    晕了,
    发错了,,
    if strtoint(CB.items[ck])<>(aaa) then
          CB.items.add(inttostr(aaa));
      

  4.   

    ghyghost(著名关心CSDN结贴率爱国主义人士代表) 你的id好有趣哦,看来我只能马上结帖了,^_^
    谢谢ghyghost和sysu了!!!