[freedomman]

Код:

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

и

Код:

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

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

[Ildar-tsr]

Вставь после

Код:

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

строчку

Код:

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

[freedomman]

при

Код:

   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]

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

Код:

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

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

[freedomman]

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