Как сделать чтоб при написании в едит5 чисел или 1 или 2 выполнялось по следующим формулам
Цитата:
var
d:real;
Fb:real;
begin
d:=strtofloat(edit1.text);
Fb:=strtofloat(edit2.text);
if edit5.text='1' or edit5.text='2' then
begin
edit3.Text:=floattostr(2.4*d+2.4*Fb);
edit6.Text:=floattostr(((8*(d/(3*Fb)))+2.4)*fb);
|
if edit5.text='1' then << работает только на число 1.
if edit5.text='1' or edit5.text='2' then <<<ошибка "Operator not applicable to this operand type"