Как всегда говорится, не хватило суток.
Но не о чем не жалею. Такой массовой работой с файлами не занимался, поэтому кое что узнал нового. положил в копилку ( написал в общую библиотеку ) немного новых функций. Не знаю пригодится ли с файлами, но вот эта пара точно
Код:
function RadioButtonsToInt(RBArray: array of TRadioButton): Integer;
begin
Result := High(RBArray);
while (Result > 0) and (not RBArray[Result].Checked) do
Dec(Result);
end;
procedure IntToRadioButtons(Value: Integer; RBArray: array of TRadioButton);
begin
if (Value >= 0) and (Value < Length(RBArray)) then
RBArray[Value].Checked := True;
end;
Теперь с группой РадиоКнопок работаю в две строчки
Код:
IntToRadioButtons(toolsIni.FileOverDo, [RBfotAbort, RBfotSkip, RBfotOverwrite, RBfotQuestion]);
toolsIni.FileOverDo := RadioButtonsToInt([RBfotAbort, RBfotSkip, RBfotOverwrite, RBfotQuestion]);
Почему то ( как написали в условиях ) ящик Ferra не доступен поэтому загрузил сюда ( без exe ) и вот ссылка с
exe