引言: 代碼如下:

procedure TForm1.Button1Click(Sender: TObject);
var
   i,iTesttot: Integer ;
begin
  iTestTot := 0 ;
  if RadioGroup1.ItemIndex <> 0 then
    begin
    iTestTot := iTestTot   1 ;
    end;
  if RadioGroup2.ItemIndex <> 0 then
    begin
    iTestTot := iTestTot   1 ;
    end;
  if RadioGroup3.ItemIndex <> 0 then
    begin
    iTestTot := iTestTot   1 ;
    end;
  if RadioGroup4.ItemIndex <> 0 then
    begin
    iTestTot := iTestTot   1 ;
    end;      if RadioGroup5.ItemIndex <> 0 then
    begin
    iTestTot := iTestTot   1 ;
    end;      if RadioGroup6.ItemIndex <> 0 then
    begin
    iTestTot := iTestTot   1 ;
    end;
   Memo1.Lines.Clear;         if iTestTot > 0 then
        begin
          for I := 0 to iTestTot - 1 do
            Memo1.Lines.Add(inttostr(i)) ;
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  iTestTot := 0 ;
  if RadioGroup1.ItemIndex <> 0 then
    begin
    Memo1.Lines.Add('1') ;
    end;
  if RadioGroup2.ItemIndex <> 0 then
    begin
    Memo1.Lines.Add('2') ;
    end;
  if RadioGroup3.ItemIndex <> 0 then
    begin
    Memo1.Lines.Add('3') ;
    end;
  if RadioGroup4.ItemIndex <> 0 then
    begin
    Memo1.Lines.Add('4') ;
    end;
  if RadioGroup5.ItemIndex <> 0 then
    begin
    Memo1.Lines.Add('5') ;
    end;
  if RadioGroup6.ItemIndex <> 0 then
    begin
    Memo1.Lines.Add('6') ;
    end;
end;

    procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  RG: TRadioGroup;
begin
  Memo1.Lines.Clear;
  for i:=0 to Self.ComponentCount-1 do
  begin
    if Self.Components[i] is TRadioGroup then
    begin
      RG:= TRadioGroup(Self.Components[i]);
      if RG.ItemIndex <> 0 then
        Memo1.Lines.Add(RG.Caption);
    end;
  end;
end;    

procedure TForm1.Button1Click(Sender: TObject);
var
  i,iTest: Integer;
  RG: TRadioGroup;
begin
  itest := 0 ;
  Memo1.Lines.Clear;
  for i:=0 to Self.ComponentCount-1 do
  begin
    if Self.Components[i] is TRadioGroup then
    if Self.Components[i].Tag = 1 then
    //因為Form上還有不需要計算的RadioGroup的Tag都預設為0,所以需要算在裡面的Tag值我統一設為1
    begin
      RG:= TRadioGroup(Self.Components[i]);
      if RG.ItemIndex <> 0 then
        iTest := iTest   1;  //先合計有幾個被選擇1.0mm
    end;
  end;    //謝謝,以上方法真好:假如我不止6組,若有10組20組的這樣合計就方便多了(呵呵，我以前的算法真是笨笨~~)    //  >     >         
        

引言: 插花一下原始程式的邏輯^^Y，我是來搞怪的 程式顯示 0 1 2 3 是很正常的事情 解說 你總共點了4組所以iTestTot內容為4 if iTestTot > 0 then //iTestTot大於0運行 目前是4所以會繼續執行下面程式 begin for I := 0 to iTestTot - 1 do //I=0 iTestTot = 3 Memo1.Lines.Add(inttostr(i)) ; //列印出I值，I變化0~3故顯示0 1 2 3 end; 看出來了嗎？你想要的功能應該是希望回傳第幾組被選取的值吧!! 解決方式有上面大大的方法，我只好灌灌水CC，說說邏輯 數學 程式 經驗=不懂^^

非常感謝juneo大大的指教! 你說的對，我想要的功能就是希望能回傳第幾組被選取的值(數字). 一定要給出一個變數,因為我在

    procedure TForm1.Button1Click(Sender: TObject);
var
  i, iTag: Integer;
  RG: TRadioGroup;
  ArrayCheck: Array of Integer;
begin
  SetLength(ArrayCheck, 10);      iTag:=0;
  Memo1.Lines.Clear;
  for i:=0 to Self.ComponentCount-1 do
  begin
    if Self.Components[i] is TRadioGroup then
    begin
      RG:= TRadioGroup(Self.Components[i]);
      if RG.ItemIndex <> 0 then
      begin
        Memo1.Lines.Add(RG.Caption);
        ArrayCheck[iTag]:= RG.TabOrder   1;
        iTag:= iTag   1;
      end;
    end;
  end;      for i:=0 to 6 do
    Memo1.Lines.Add(IntToStr(ArrayCheck[i]));
end;