各位高手大家好，Radiogroup 中有 Items 的屬性，我查過在 Unit 當中是長得像下面這樣： object RadioGroup1: TRadioGroup Left = 16 Top = 16 Width = 185 Height = 105 Caption = '選擇執行條件' Columns = 2 Items.Strings = ( '字元數為1 ' '字元數為2' '字元數為3' '字元數為4' '字元數為5' '其它') TabOrder = 2 OnClick = RadioGroup1Click end 那在程式中用這種語法：edit1.Text := radiogroup1.Items.Strings[0]; 也可以把 Items 一個一個讀出來；但我的問題是，如果我想找出程式中所有 的 Radiogroup 並把它們的所有 items 一次讀出來存入文字檔中，該怎麼做 呢？之前在會員創作發表區中，曾看過 pcplayer99 大大所發表的【多語言的元件】一文，當中已提到了遍歷 form 中所有物件的方法，但是我發現找得到 radiogroup 物件，可 radiogroup.items 屬性值卻是空的，請大家幫忙想個 辦法，非常感謝。 PS.pcplayer99 大大是用 GetStrProp(Components[j],'Caption') 這個語法把 迴圈找到的 Component 元件的 Caption 屬性讀出來的。但是當傳入的 component 是 Radiogroup 時，GetStrProp(Components[j],'items')卻讀 不到東西（是空白的）。

Hi azurecloud 您好, 試試這一段:

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
   Memo1.Clear;
   for i := 0 to ComponentCount - 1 do begin
       if Components[i] is TRadioGroup then begin
          for j := 0 to TRadioGroup(Components[i]).Items.Count - 1 do begin
              Memo1.Lines.Add( TRadioGroup(Components[i]).Items.Strings[j] );
          end;
       end;
   end;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

Miles 大大： 真是太感謝您了，在我的眼中，您就是高手啦！ 我猜，您用的方法是 Force component[j] to TRadiogroup 物件 所以就能夠抓到它的屬性值了。 我根據您提供的方法又修改了 pcplayer99 大大的【多語言的元件】 ，目前包含 TForm、mainmenu、button、groupbox、radiogroup 等物件 的顯示畫面都已能自動輸出成 ini 檔並用 Dr.Eye 自動換成簡體，我測 試的結果，只要本身是 component 的話，就算被別的 container 包住 （例如 groupbox 中含了幾個 button）這個程式碼還是能抓得到，而目 前我唯一找到的例外就是 radiogroup 物件，也由於您的幫忙順利解決了 ，接下來我想去試試自動抓取 StringGrid 和 DBGrid 的 cells；那這一 份我修改的程式碼由於還沒有向原創 pcplayer99 大大取得同意不方便轉 貼，您如果有興趣我可以 Mail給您，聊表謝意，再一次感謝您的幫忙。

引言: 那這一 份我修改的程式碼由於還沒有向原創 pcplayer99 大大取得同意不方便轉 貼，您如果有興趣我可以 Mail給您，聊表謝意，再一次感謝您的幫忙。

我的代码既然贴出来了，自然可以大家随便用，随便转贴啦。 不过，麻烦你把你改后的代码EMAIL一份给我好吗？我想偷点懒。