[Ksully]

Подскажите пожалста...
Я округляю полученные цифры в стрингриде так:

Код:

 Form3.StringGrid1.Cells[0,i]:=FloatToStr(RoundTo(w, -2));
  Form3.StringGrid1.Cells[1,i]:=FloatToStr(RoundTo(Re, -2));

потом мне нужно снова обратиться к этим цифрам

Код:

 Pobsie:=Pgeom+strtofloat(StringGrid5.Cells[4,i])+strtofloat(StringGrid4.Cells[3,i])+strtofloat(StringGrid3.Cells[1,i])+strtofloat(StringGrid3.Cells[2,i])+strtofloat(StringGrid2.Cells[5,i])+strtofloat(StringGrid1.Cells[2,i]);

Т.е. мне нужно сложить все округленные цифры из разных стрингридов, до округления все работало, после округления начал выдавать ошибку при расчете "is not valid floating point value" ????

[roamer]

Может это поможет :

Код:

function _StrToExtended(Sx:string; DefR : Extended) : Extended;
Var
  Res : integer;
begin
  Sx:=Trim(Sx);
  Sx:=Replace_Char_In_String(Sx,ORD(','),ORD('.'));
  Val(Sx,Result,Res);
  if Res<>0 then Result:=DefR;
end;


function Replace_Char_In_String(Sx : string; asciCodeOLD, asciCodeNEW : integer) : string;
{Заменить символы в строке}
Var
  i : integer;
begin
  Result:=Sx;
  for i:=1 to length(Result) do
   begin
    if ORD(Result[i])=asciCodeOLD then Result[i]:=CHR(asciCodeNEW);
  end;
end;

[AleD]

точки запятыми меняйте при конвертирование в Float, или запятые точками, непомню

[Ksully]

Подскажите.... может функция округления плохо работать...????
Пишу везде одинаково, но почему то все округляет нормально, а один столбец превращает в нули, пробовала разные способы округления

Код:

 Form3.StringGrid5.Cells[0,i]:=FloatToStrF(w, ffNumber,15,2);
  Form3.StringGrid5.Cells[1,i]:=FloatToStrF(KsiVx, ffNumber,15,2);
  Form3.StringGrid5.Cells[2,i]:=FloatToStrF(KsiVix, ffNumber,15,2);
  Form3.StringGrid5.Cells[3,i]:=FloatToStrF(KsiPl,ffNumber,15,2);
  Form3.StringGrid5.Cells[4,i]:=FloatToStrF(Pfil, ffNumber,15,2);

4-ый столбец превращает в нули.... с чем это может связано???