Дробные числа

[Oksanator]

Не могу сообразить,но почему-то при значении от 12.2 до 10 выдается 70,хотя должно быть 1. А если <=9,9 то все пишет правильно.В чем ошибка?

If edit129.Text<=floattostr(12.2)then edit137.Text:=inttostr(1);
If edit129.Text<=floattostr (9.9)then edit137.Text:=inttostr(26);
If edit129.Text<=floattostr (7.6)then edit137.Text:=inttostr(70);

[ОДИНОЧЕСТВО В СЕТИ]

А попробуйте, вот так:

If strtofloat(edit129.Text)<=12.2 then edit137.Text:=inttostr(1);
If strtofloat(edit129.Text)<=9.9 then edit137.Text:=inttostr(26);
If strtofloat(edit129.Text)<=7.6 then edit137.Text:=inttostr(70);

[Oksanator]

не помогло

[profi]

  If (StrToFloat(Edit129.Text) > 0.0) and (StrToFloat(Edit129.Text) <= 7.6) then
      Edit137.Text := IntToStr(70);
  If (StrToFloat(Edit129.Text) > 7.6) and (StrToFloat(Edit129.Text) <= 9.9) then
      Edit137.Text := IntToStr(26);
  If (StrToFloat(Edit129.Text) > 9.9) and (StrToFloat(Edit129.Text) <= 12.2) then
      Edit137.Text := IntToStr(1);

[Alex Cones]

Промах. Удалите.

[Oksanator]

Методом научного тыка решила проблему,убрав знак меньше в двух последних строчках:

If edit129.Text<=floattostr(12.2)then edit137.Text:=inttostr(1);
If edit129.Text=floattostr (9.9)then edit137.Text:=inttostr(26);
If edit129.Text=floattostr (7.6)then edit137.Text:=inttostr(70);

Как ни странно,все заработало.Но почему именно такой вариант машина поняла,для меня загадка О__о .....

[Alex Cones]

Здесь проблема была в том, что одно условие перекрывало другое.
Example:

if X<5 Then Y:=1;
If X<10 Then Y:=2;

Здесь что-ни вводите Y будет равен 2-м. Выход - либо устанавливать рамки > и <= либо делать выход exit-ом.

[evg_m]

edit129.Text<=floattostr

поразительный факт, но
'2'<'1' =FALSE и
'2'<'12' =FALSE

сравнение строк, это не сравнение чисел
правильнее будет if strtofloat(edit.text)<=7 then