[kda6666]

Привет всем.
Ребята, помогите пожалуйста, в чем ошибка....? Никак не пойму...
Есть следующий код:
type
TForm1 = class(TForm)
.....
CheckBox1: TCheckBox;
.....

var
.....
tmpCheck:boolean;
f:text;
....
Form1: TForm1;

.....

procedure TForm1.Button1Click(Sender: TObject);
begin
............
system.Assign(f,'tmp.txt');
rewrite(f);
writeln(f,tmpcheck);
checkbox1.Checked:=tmpcheck;
writeln(f,tmpCheck);
system.Close(f);
.............
end;

.....

end.
Вопрос: Почему в файле tmp.txt содержатся следующие строки?
TRUE
FALSE

В чем здесь ошибка???!!!Файл нигде больше не используеться.

[friz]

Попробуй переменной tmpcheck в начеле проги присвоить нужное тебе значение... а то просто значение переменной не известно..вот прога и выводит всякую хрень

[The Shadow]

Так вы две строки записываете... А что там должно быть?

[kda6666]

Сообщение от friz

Попробуй переменной tmpcheck в начеле проги присвоить нужное тебе значение... а то просто значение переменной не известно..вот прога и выводит всякую хрень

Дело в том, что значение tmpCheck меняеться в процесссе работы программы, оно зависит от определенных услвоий. А Button1Click я вызываю один раз.

[The Shadow]

А что не так то??

[kda6666]

Сообщение от The Shadow

Так вы две строки записываете... А что там должно быть?

Ну, я вообще-то хотел бы видеть:
True
True

,а не:
True
False

И по-моему, так и должно бы быть, или нет...?

[kda6666]

Сообщение от The Shadow

А что не так то??

Не так то, что написано

....
system.Assign(f,'tmp');
rewrite(f);
writeln(f,tmpcheck);
checkbox1.Checked:=tmPCheck;
writeln(f,tmpCheck);
system.Close(f);
checkBox2.Checked:=tmpCheck;
....

А флажок в CheckBox2 не включаеться...и в процедуре он у меня больше не присваеваеться

[The Shadow]

попробуйте добавить tmpCheck:=True; перед system.Assign(f,'tmp');

[kda6666]

не, не помогло....
CheckBox1 отмечен, а CheckBox2 нет

[Drozh]

Странно повторил твой код, все работает!!! Если до записи переменной присвоить TRUE то и в файле будет TRUE, если ничего не писать - в файле FALSE. Давай код всей процедуры...

[kda6666]

Спасибо за помощь, нашел в чем ошибка. Но я даже себе представить такого не мог. С каких это пор изменение свойства CheckBox с True на False или с False на True, в коде программы срабатывает процедура CheckBoxClick
У меня стоит в коде:

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if not SaveList then
  tmpCheck:=false
  else
  tmpCheck:=true;
end;

А переменная SaveList в тот момент имеет значение False.