[freedomman]

Код:

1 2 3 4 5 6

r:=strtofloat(StringGrid1.Cells[i,j]);        if (r=pr) then         begin          result:=strtofloat(StringGrid1.Cells[i,1])+strtofloat(StringGrid1.Cells[1,j]);                   end

и

Код:

1 2 3 4 5

if (strtofloat(StringGrid1.Cells[i,j])=pr) then  begin   result:=strtofloat(StringGrid1.Cells[i,1])+strtofloat(StringGrid1.Cells[1,j]);    end

оператор if работает по разному для этих вроде одинаковых значений.... почему???

[Ildar-tsr]

Вставь после

Код:

1	r:=strtofloat(StringGrid1.Cells[i,j]);

строчку

Код:

1	ShowMessage(StringGrid1.Cells[i,j]+', а r = '+floattostr(r));

[freedomman]

при

Код:

1 2 3 4 5

if (strtofloat(StringGrid1.Cells[i,j])=pr) then       begin        result:=strtofloat(StringGrid1.Cells[i,1])+strtofloat(StringGrid1.Cells[1,j]);              end

strtofloat(StringGrid1.Cells[i,j])=3,12 и pr=3,12 ,а в условие не заходит

[Bargest]

Странно, если оно вообще хоть когда-либо работало.
Сравнение дробных чисел так не сделать. Дробные числа надо сравнивать приблизительно, то есть

Код:

1	if (a>b-eps)and(a<b+eps) then ...

Где eps задаете сами, что-нибудь около 0.01.

[freedomman]

о как) спасибо