Вниз
Скачать: CL | DM;

CheckBox и ini файлы   Найти похожие ветки 

 
moor38   (2006-02-03 12:53) [0]

Вопрос:
 Сохраняю так

var
 Ini:TIniFile;
begin
 Ini:=TIniFile.Create(papka+"\DR.INI");
 Ini.WriteBool("Prazd","Ezhegod",CheckBox1.Checked);
 Ini.WriteBool("Prazd","Plav",CheckBox2.Checked);
 Ini.UpdateFile;
 Ini.Free;
end;

Читаю так:
var
 Ini:TIniFile;
begin
 Ini:=TIniFile.Create(papka+"\DR.INI");
 Form1.CheckBox1.Checked:=Ini.ReadBool("Prazd","Ezhegod",true);
 Form1.CheckBox2.Checked:=Ini.ReadBool("Prazd","Plav",true);
 Ini.WriteBool("Prazd","Ezhegod",CheckBox1.Checked);
 Ini.Free;

а в итоге при считывании ini файла все данные изменяется на true? Почему и как исправить это?


 
jack128 ©   (2006-02-03 12:56) [1]

ты сам файл посмотри. Там данные то есть??
ЗЫ
Ini:=TIniFile.Create(papka+"\DR.INI");
try
  Ini.WriteBool("Prazd","Ezhegod",CheckBox1.Checked);
  Ini.WriteBool("Prazd","Plav",CheckBox2.Checked);
  Ini.UpdateFile;
finally
  Ini.Free;
end;


 
moor38   (2006-02-03 12:58) [2]

В том-то и дело, есть и при считывании их изменяются


 
ЮЮ ©   (2006-02-03 13:01) [3]

может CheckBox-ы на разных формах?


> Form1.CheckBox1.Checked:=Ini.ReadBool("Prazd","Ezhegod",
> true);
>  Form1.CheckBox2.Checked:=Ini.ReadBool("Prazd","Plav",true);
>
>  Ini.WriteBool("Prazd","Ezhegod",CheckBox1.Checked);


 
ЮЮ ©   (2006-02-03 13:05) [4]


> В том-то и дело, есть и при считывании их изменяются


они изменятся, ели их и нет.
убедись, что что-то есть:

TCustomIniFile.ValueExists, хотя бы


 
moor38   (2006-02-03 13:05) [5]

Нет на первой форме, на одной и той же


 
moor38   (2006-02-03 13:13) [6]

блин, все записывает в ини-файлы, а при считывании изменяет их назад


 
ЮЮ ©   (2006-02-03 13:21) [7]

Замени на Read(White)Integer - в Bool всё-таки какая-то неодназначность:

Ini.WriteInteger("Prazd","Ezhegod",Integer(CheckBox1.Checked));
CheckBox1.Checked:=Ini.ReadInteger("Prazd","Ezhegod", 0) = 1;


 
moor38   (2006-02-03 13:43) [8]

таже петрушка получается



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c
2-1155619285
Mikka Hakkinnen
2006-08-15 09:21
2006.09.03
Вывести на Chart номера точек PointSeries


15-1154963360
Piter
2006-08-07 19:09
2006.09.03
Ошибка в справке Delphi


15-1155369296
Deka
2006-08-12 11:54
2006.09.03
Как продать идею? Кто-нить пробовал?


15-1155203846
ArtemESC
2006-08-10 13:57
2006.09.03
Все время хочу спросить и забываю...


15-1155312600
IMHO
2006-08-11 20:10
2006.09.03
Отбор к Евро-2008




   Наверх