效果如上,简单代码操作如下:
强调需要先初始化数据,然后再遍历设置初始的checked为true;
i:=0; try rzchckgrp1.Items.BeginUpdate; SetLength(myjcxArray, adojcxmset.RecordCount); //创建动态数组,有5个元素 with adojcxmset do begin while not Eof do begin rzchckgrp1.Items.Add(FieldByName(‘mcheng‘).AsString ); //添加名称显示 myjcxArray[i].isselect:=FieldByName(‘isselect‘).AsString; i:=i+1; Next; end; end; rzchckgrp1.Items.EndUpdate; finally end; //遍历设置初始checked状态 for i:=0 to rzchckgrp1.Items.Count-1 do begin if myjcxArray[i].isselect<>‘0‘ then rzchckgrp1.ItemChecked[i]:=True; end;
时间: 2024-10-31 23:00:02