Оптимизация кода погрешностей

[dreary999]

 if

  (1.5 > ((strtofloat(itog[10,i]))-(StrToFloat(itog[10,i]) - StrToFloat(itog[9,i]) + StrToFloat(itog[15,i]))))
  and
  (-1.5 < ((strtofloat(itog[10,i]))-(StrToFloat(itog[10,i]) - StrToFloat(itog[9,i]) + StrToFloat(itog[15,i]))))
    then

Можно как то сделать в одну строчку?
А то у меня что-то не выходит (((

[Человек_Борща]

Вычисления справа загони в перменные.

[dreary999]

Я наверное не совсем точно описал то, что замышляю)
Я хотел избавиться от and.
Меня интересует, возможно ли как нибудь оформить типа

if 
1.5 > вычисления > -1.5
then

[XE5]

Нет, не возможно.

[Человек_Борща]

Меня интересует, возможно ли как нибудь оформить типа

Читай пост №2.

if (A < 1.5) and (B < 100) and (C < 100) then

если значений для сравнения результата вычеслений очень много, то напиши функцию которая исп. массив проверочных значений в цикле проверит условие A < B и если условие ложно то функция вернет False, итого вместо вагона if:

if (A < 1.5) and (B < 100) and (C < 100) then

будет

if CheckA(A) then

[Stilet]

strtofloat(itog[10,i])

А может стоит сделать массив itog вещественным а не строковым?

[StriderX]

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

Я наверное не совсем точно описал то, что замышляю)
Я хотел избавиться от and.
Меня интересует, возможно ли как нибудь оформить типа

if 
1.5 > вычисления > -1.5
then

По модулю же, не?

 if (Abs(вычисления) < 1.5) then