Вниз
Скачать: 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.026 c
2-1155366764
Chort
2006-08-12 11:12
2006.09.03
запуск программы


15-1155213860
StriderMan
2006-08-10 16:44
2006.09.03
Сколько значений может содержать один миллибит


2-1155660880
ex32Le
2006-08-15 20:54
2006.09.03
String To array of byte


4-1147254508
QuickFinder
2006-05-10 13:48
2006.09.03
Определение операционной системы


2-1155207767
DelphiMax
2006-08-10 15:02
2006.09.03
Отловить запуск программ




   Наверх