Author: Jonas Bilinkevicius

I have three single TRadioButtons sitting on a TPanel (on Form1). How can I save 
the state of the checked TRadioButton to a TIniFile and read it back afterwards? I 
know how to do it with a TRadioGroup, but not with stand-alone radiobuttons.

Answer:

1   uses
2     IniFiles;
3   
4   procedure SaveRadioButtonState;
5   var
6     data: TIniFile;
7     K: Integer;
8   begin
9     data := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
10    try
11      for K := 0 to form1.ComponentCount - 1 do
12        if Form1.Components[K] is TRadioButton then
13          {We only look for the checked radiobutton and save its state, of course}
14          data.WriteBool('Options', IntToStr(K),
15            TRadioButton(Form1.Components[K]).Checked = True);
16    finally
17      data.Free;
18    end;
19  end;
20  
21  procedure ReadRadioButtonState;
22  var
23    data: TIniFile;
24    K: Integer;
25  begin
26    data := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
27    try
28      for K := 0 to Form1.ComponentCount - 1 do
29        if Form1.Components[K] is TRadioButton then
30          TRadioButton(form1.Components[K]).Checked := data.ReadBool('Options',
31            IntToStr(K), True);
32    finally
33      data.Free;
34    end;
35  end;