Ini или не Ini

← →
Ivan61 (2002-06-30 21:47) [0]

На форме есть кнопка, при нажатии на которую Label1 прячется или появляется. Как через ini-файл записать видна Label1 или нет, чтобы при следующем запуске программа прочитала эту запись и если при закрытии метка не была видна, то чтобы её небыло видно и при очередном запуске и наоборот.
Заранее спасибо.

← →
usta (2002-06-30 22:16) [1]

Нужно в событие формы "close" написать код который запишет в ini файл булево значение (0 или 1) в зависимости от видимости метки.
При открытии формы в событие создания формы нужно прочесть значение в "ини" и если оно истино(1), то и показать метку иначе не показывать.

← →
Ivan61 (2002-06-30 22:28) [2]

Записать в "ини" без проблем
myIni:=TIniFile.Create("MyIni.ini");
if label1.Visible=true then
myIni.WriteBool("prog","visible",true)
else
myIni.WriteBool("prog","visible",false);
А вот как теперь считать это из Ini-файла?
Помогите неучу строчкой кода.
Заранее спасибо.

← →
sergio2204 (2002-06-30 22:34) [3]

procedure Form.OnCreate();
...
Label1.Visible := myIni.ReadBool("prog", "visible");
...

← →
T'Mon (2002-06-30 22:41) [4]

procedure TForm1.FormCreate(Sender: TObject);
begin
INI := TIniFile.Create("Some.ini");
Label1.Visible := INI.ReadBool("SomeSection", "SomeIdent", True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
INI.WriteBool("SomeSection", "SomeIdent", Label1.Visible);
end;

← →
Ivan61 (2002-06-30 22:51) [5]

procedure Form.OnCreate();
...
Label1.Visible := myIni.ReadBool("prog", "visible");
...
Кампилятор выдаёт сообщение об ошибке. В чём тут причина?

← →
sergio2204 (2002-06-30 22:58) [6]

см. T"Mon

← →
Ivan61 (2002-06-30 23:08) [7]

T"Mon Большое спасибо!!!!!!!! Заработало!!!!!!!!

Ivan61 (30.06.02 22:28)
Записывай также без всяких if

myIni.WriteBool("prog","visible",label1.Visible)

Позвольте мне тоже задать вопрос: а не стоит ли закрыть файл после того, как значение будет записано? Или он сам закрывается?

← →
T'Mon (2002-07-01 03:22) [10]

Вообще, конечно INI.Free сделать положено.
Но значение и так будет записано, т.к. TINIFile всего лишь wrapper на API"шные функции (WritePrivateProfileString).

Ini или не Ini Найти похожие ветки