ошибка в условии

[street-walker]

не могу найти ошибку,подскажите пожалуйста:

begin
if ((Edit12.Text>'0.4')or(Edit12.Text= '0.4'))and(Edit12.Text<'0.5') then begin
label57.caption:='Oтвет верный';
label57.Font.Color:=clGreen
end
else begin
label57.caption:='Oтвет неверный';
label57.Font.Color:=clRed
end;
end;

[vr83]

(Edit12.Text>'0.4')or(Edit12.Text= '0.4') тоже что и Edit12.Text>= '0.4'
а так все правильно

[BOBAH13]

1. А что за ошибка вообще ?
2. Это наверное не верно

if ((Edit12.Text>'0.4')or(Edit12.Text= '0.4'))and(Edit12.Text<'0.5') then begin

[street-walker]

просто не выводит результат,не присваивается ничего в label

[street-walker]

в edit вводится число,мне нужно чтобы проверялось входит это число в диапазон от 0.4 до 0.5 и выводить резулmтат в label

[vr83]

Сообщение от street-walker

просто не выводит результат,не присваивается ничего в label

проверь это у тебя label 57

[bitSoft]

StrToInt

....

if ((StrToInt(Edit12.Text)>0.4)or(StrToInt(Edit12.Text)= 0.4))and(StrToInt(Edit12.Text)<0.5) then begin
label57.caption:='Oтвет верный';
label57.Font.Color:=clGreen
end
else begin
label57.caption:='Oтвет неверный';
label57.Font.Color:=clRed
end;
end;

[ACE Valery]

bitSoft, toInt??? А разве 0.4 целое число? Может StrToDouble? Или StrToFloat? Или как там у вас в Делфи вещественные числа обозначаются?
street-walker, а не проще вместо

(StrToInt(Edit12.Text)>0.4)or(StrToInt(Edit12.Text)= 0.4)

писать

(StrToInt(Edit12.Text)>=0.4)

[ACE Valery]

bitSoft, toInt??? А разве 0.4 целое число? Может StrToDouble? Или StrToFloat? Или как там у вас в Делфи вещественные числа обозначаются?
street-walker, а не проще вместо

(StrToInt(Edit12.Text)>0.4)or(StrToInt(Edit12.Text)= 0.4)

писать

(StrToInt(Edit12.Text)>=0.4)

[vr83]

не надо ни каких StrToFloat все и так работает. тогда , а не . ставить придется