Вниз
Скачать: 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.045 c
2-1155751167
serko
2006-08-16 21:59
2006.09.03
ServeкSocket и ClienSocket в Delphi 7!


2-1155703320
_stdcall
2006-08-16 08:42
2006.09.03
Boolean => String


15-1154991416
Германн
2006-08-08 02:56
2006.09.03
Ещё один дурацкий сабж про пиратство.


2-1155632879
rym
2006-08-15 13:07
2006.09.03
Глупо


15-1155287138
flad
2006-08-11 13:05
2006.09.03
Читать тексты(книги)на ДВД-проигрывателе?




   Наверх