unit UserLimitForm; 中
function TfrmUserLimit.GetCheckBox: string;
var
i, lTag: integer;
s, s1: string;
begin
for i := 0 to 50 do //这里可能要修改
s := s + '00000';
s1 := s;
for i := 0 to ComponentCount - 1 do
begin
if (Components is TSeSkinCheckBox) then
begin
lTag := TSeSkinCheckBox(Components).Tag;
if TSeSkinCheckBox(Components).Checked then
s[lTag] := '1'
else
s[lTag] := '0';
end;
end;
if s1 = s then
s := '';
Result := s;
end;