AlphaControls 控件 TsCheckListBox 代替 TRzCheckGroup
日常使用TRzCheckGroup,运用AlphaControls 控件后,需要使用TsCheckListBox 代替 TRzCheckGroup。
二者外形和功能,基本一致。代码有所区别。
TRzCheckGroup
T:=False;
for i:=0 to RzCheckGroup1.Items.Count-1 do
if RzCheckGroup1.ItemChecked[i] then T:=True;
if T then
begin
S2:='(';
for i:=0 to RzCheckGroup1.Items.Count-1 do
begin
if RzCheckGroup1.ItemChecked[i] then
begin
S1:='(区域='+#39+RzCheckGroup1.Items.Strings[i]+#39+') or ';
S2:=S2+S1;
end;
end;
S2:=Copy(S2,1,Length(S2)-4)+')';
S:=S+' and '+S2;
end;
TsCheckListBox
T:=False;
for i:=0 to sCheckListBox2.Items.Count-1 do
if sCheckListBox2.Checked[i] then T:=True;
if T then
begin
S2:='(';
for i:=0 to sCheckListBox2.Items.Count-1 do
begin
if sCheckListBox2.Checked[i] then
begin
S1:='(护理等级='+#39+sCheckListBox2.Items.Strings[i]+#39+') or ';
S2:=S2+S1;
end;
end;