Почему выполняется ложное условие?

[AND]

Доброго время суток.
В программе есть условие, которое вначале ложно. При нажатии на кнопку старт задаются переменные, где
tpostzad := 5 + random(5);
Vremy- это переменная характерезующая внутреннее время, при вызове
TTimer через 1 сек. увеличивается на 1 ед.
tnachrab - время начала работы программы, равняется 1.
Почему идет приращение EH1, если условие ложно?

if (tpostzad <= Vremy - tnachrab) then
begin
if K1sost = false then
begin
EH1 := EH1+1;
end
else
begin
tnachobrK1: = Vremy;
K1sost :=false;
end
end

[mihali4]

Почему идет приращение EH1, если условие ложно?

Потому что вы это задали:
if K1sost = false then
begin
EH1 := EH1+1;
end

[Stilet]

Почему идет приращение EH1, если условие ложно?

Это нужно весь код анализировать.

[AND]

Дело в том, что в начале K1sost = true, тоесть условие If первое ложное и следовательно код выполняться не должен, а если в if поменять условие на true, то приращение вообще не идет...

[mihali4]

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

Дело в том, что в начале K1sost = true, тоесть условие If первое ложное и следовательно код выполняться не должен, а если в if поменять условие на true, то приращение вообще не идет...

В смысле, до приведенного вами отрывка у вас где-то заведомо устанавливается K1sost = true ?
Тогда ищите все операторы K1sost:=False у себя в тексте, ставьте на них брэкпойнты и смотрите, где у вас True меняется на False до обращения к указанному отрывку.

[Stilet]

следовательно код выполняться не должен

Я скажу так: Во-первых неплохо бы пройтись по шагам в этом коде и посмотреть правда ли что при K1sost = true выполняется EH1 := EH1+1, если нет, то нужно искать где еще выполняется это EH1 := EH1+1, может есть какой лишний разик, потому и говорю - нуна весь код анализить.
Во-вторых если чесно я натыкался на баги когда делфа действительно странным образом выполняла такие условия непонятно почему... Так и не разобрался накосячил ли я или глюкнула делфа, но такое было причем на малюсеньких проектах где накосячить то негде...

Так что отладчик тебе в помошь уважаемый студент.

[Virtson]

и вместо 'if K1sost = false then'
принято писать 'if Not K1sost then'

вообще в коде естьлишние переменные, полюбому.
где увеличивается Vremy ?

[AND]

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

где увеличивается Vremy ?

время увеличивает в TTimer. на 1 за 1 сек.

[Alex21]

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

время увеличивает в TTimer. на 1 за 1 сек.

Весь код предоставите?