，判断_读书人

，判断

2013-04-02

求助，判断while not eof dobegin//if fieldbyname(code).asstring001 thenchecklistbox1.items.add(f

求助，判断


     while not eof do
       begin
        //if fieldbyname('code').asstring='001' then
          checklistbox1.items.add(fieldbyname(name).asstring);
       next;
       end;

想加个判断，当code=001时，checked为true,该如何写，谢谢了 delphi checked
[解决办法]

引用:

引用:Delphi/Pascal code?1234567891011var i: integer;begin while not eof do begin i := checklistbox1.items.add(fieldbyname(name).asstring); if fieldbyname('c……

多加一行：checklistbox1.ItemEnabled[i] := False;
[解决办法]

引用:

引用:Delphi/Pascal code?1234567891011121314var i: integer;begin while not eof do begin i := checklistbox1.items.add(fieldbyname(name).asstring); if fieldbyn……

i := checklistbox1.items.add(fieldbyname(name).asstring);

add方法返回的是个整型数据，返回的这个结果是你刚添加的字符串在CheckListBox中的位置（Index，即多少行）