['Zanuda']

Здравствуйте, не могу разобраться, как округлить получившиеся значения. Вроде просто, если округляются числовые типы данных, и мне нужно округлить числа в строках Мемо, чтобы не было такого:

Код:

4.0E+0000    3.0E+0000   -1.0E+0000   
 0.0E+0000    4.8E+0000    1.3E+0000   
 0.0E+0000    0.0E+0000    7.5E+0000  

Пробовал переводить 's' в Float, округлять, а потом опять в строку, но отладчик ругается, мол 4.8E+0000, например, is not a valid floating point value. Кучу методов округления перебрал, все равно такая ошибка. подскажите, если знаете.

Код:

Memo1.Font.Name:='Courier New';
Memo1.Lines.Add('Новая матрицаÍ');
for i:=0 to n-1 do
 begin
  s:='';
  for j:=0 to n-1 do
   begin
   a[i,j]:=strtofloat(StringGrid2.Cells[j,i]);
    str(a[i,j]:2,s1);
    s:=s+s1+'  ';
   end;
   Memo1.Lines.Add(s);
 end;
 end;
end;

[poli-smen]

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

Пробовал переводить 's' в Float, округлять, а потом опять в строку, но отладчик ругается, мол 4.8E+0000, например, is not a valid floating point value. Кучу методов округления перебрал, все равно такая ошибка. подскажите, если знаете.

Ругается, потому что у тебя в настройках Windows разделителем целой и дробной части указана запятая, а не точка - можно использовать глобальную переменную DecimalSeparator для решения этой проблемы.

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

Код:

.....
    str(a[i,j]:2,s1);
.....

А если вместо функции Str использовать функцию FloatToStr (или FloatToStrF)?

['Zanuda']

Спасибо, помогло. Искал ошибку, как это часто бывает, не в том месте.