[Electronic_Arts]

Сообщение от Nyctos Kasignete

P.S. Я так понимаю, что вы записываете состояние флажков CheckBox?

неа у меня Radiobutton - если разберусь как это записывать - таким образом и будем читать

но почему то оно выдает ощибку
тут
chkBox := FindComponent('a' + IntToStr(i));

Код:

Var
chkBox: TAdvOfficeRadioButton;
IniFile:TIniFile;
Path:String;
i:Byte;
begin
Path:=Application.ExeName;
Path:=ExtractFileDir(Path);
if Path[Length(Path)]<>'\' then Path:=Path+'\';
IniFile:=TIniFile.Create(path+'Inifile.ini');
for I := 1 to 237 do
begin
chkBox := FindComponent('a' + inttostr(i));
if chkBox = nil then Continue;
IniFile.WriteBool('Param', 'a' + IntToStr(i), (chkBox as TAdvOfficeRadioButton).Checked);
IniFile.Free;
end;

В чем проблема??