我原來的程式是   for i := 1 to Length(sChoose) -1 do   begin     if copy(sChoose, i, 1) = ',' then     begin       CheckBoxA.Checked := (copy(sChoose, i+1, 1) = 'A') or CheckBoxA.Checked;       CheckBoxB.Checked := (copy(sChoose, i+1, 1) = 'B') or CheckBoxB.Checked;       CheckBoxC.Checked := (copy(sChoose, i+1, 1) = 'C') or CheckBoxC.Checked;       CheckBoxD.Checked := (copy(sChoose, i+1, 1) = 'D') or CheckBoxD.Checked;       CheckBoxE.Checked := (copy(sChoose, i+1, 1) = 'E') or CheckBoxE.Checked;       CheckBoxF.Checked := (copy(sChoose, i+1, 1) = 'F') or CheckBoxF.Checked;       CheckBoxG.Checked := (copy(sChoose, i+1, 1) = 'G') or CheckBoxG.Checked;       CheckBoxH.Checked := (copy(sChoose, i+1, 1) = 'H') or CheckBoxH.Checked;       CheckBoxI.Checked := (copy(sChoose, i+1, 1) = 'I') or CheckBoxI.Checked;       CheckBoxJ.Checked := (copy(sChoose, i+1, 1) = 'J') or CheckBoxJ.Checked;       CheckBoxK.Checked := (copy(sChoose, i+1, 1) = 'K') or CheckBoxK.Checked;       CheckBoxL.Checked := (copy(sChoose, i+1, 1) = 'L') or CheckBoxL.Checked;       CheckBoxM.Checked := (copy(sChoose, i+1, 1) = 'M') or CheckBoxM.Checked;       CheckBoxN.Checked := (copy(sChoose, i+1, 1) = 'N') or CheckBoxN.Checked;       CheckBoxO.Checked := (copy(sChoose, i+1, 1) = 'O') or CheckBoxO.Checked;       CheckBoxP.Checked := (copy(sChoose, i+1, 1) = 'P') or CheckBoxP.Checked;       CheckBoxQ.Checked := (copy(sChoose, i+1, 1) = 'Q') or CheckBoxQ.Checked;     end;   end; 但我其實不想這樣做~~我希望能簡化程式~~不要每個CheckBox寫一行程式~~這邊有十七個CheckBox~~萬一以後有更多的話那豈不是昏倒~~所以請各位大大指教~~謝啦~~

您要的是這樣嗎？

var
  i,j: integer;
  CheckBoxArray: Array[1..17] of TCheckBox;
begin
  for i := 1 to 17 do
    CheckBoxArray[i] := FindComponent('CheckBox'   Chr(64   i)) as TCheckBox;      for i := 1 to Length(sChoose) -1 do
  begin
    if Copy(sChoose, i, 1) = ',' then
    begin
      for j := 1 to 17 do
        CheckBoxArray[j].Checked := (Copy(sChoose, i 1, 1) = Chr(64   j)) or CheckBoxArray[j].Checked;
    end;
  end;
end;

-- 向 KTop 的弟兄們致敬!

感恩~~好犀利的版大~~