[решено] взаимодействие между формами. Что я делаю не так?

[Лекс Айрин]

Код: Выделить всё

var
  MainForm: TMainForm;
  ...
  WinView:boolean;

....
procedure TMainForm.FormCreate(Sender: TObject);
begin

  with MainForm.IniPropStorage1 do
    begin
      IniSection:='Tune'; //указываем секцию
      ReadBoolean('CheckWinPopup_Checked',WinView); //пробуем
      IniSection:='Main'; //возвращаем обратно секцию формы
    end;
      If WinView=true then... // WinView игнорируется
.....


содержимое ini файла

Код: Выделить всё

...
[Tune]
CheckWinPopup_Checked=0 //или 1 в зависимости от того снята или установлена.
...



Прямое использование тоже не получается.

[zub]

это функция а не вроцедура. и ты ей передаешь значение по умолчанию а не получаешь значение

Код: Выделить всё

function  ReadBoolean(const Ident: string; DefaultValue: Boolean): Boolean;

[Лекс Айрин]

zub, то есть надо написать так?

Код: Выделить всё

WinView:=ReadBoolean('CheckWinPopup_Checked',WinView);


[zub]

Код: Выделить всё

WinView:=ReadBoolean('CheckWinPopup_Checked',true);
или
WinView:=ReadBoolean('CheckWinPopup_Checked',false);

в зависимости от того какое значение должно вернуться если CheckWinPopup_Checked вдруг не обнаружится в файле

[Лекс Айрин]

zubспасибо... теперь принцип понял. Все работает.