Помогите!

[Sloth]

Помогите! Вот фрагмент кода

var S:real;
// Тут вычисления,  бла бла бла
i:=FormAddString('Кол-во нефти =' + S); 


Как мне сделать, что бы выводилось не 13,1000 а просто 13,1 (с 1 знаком после запятой)
Сделайте пожалуйста на моем примере, спрашивал в других местах, но нормального ответа не получил, помогите!

PS. Про нефть просто так написал :D

[SBJoker]

По видимому как то округлять надо число перед добавлением к строке.

[Sloth]

это понятно, но КАК?

[m.ksy]

S:=((S*10+0.5)-frac(S*10+0.5))/10

[Sloth]

не работает

[VM]

// Округление до одного знака после запятой
function round(x: real): real;
var
f: real; n: integer;

begin
x := x*10;
f := Frac(x); //дробная часть
if (f >= 0.5) then x := x - f + 1;
if (f < 0.5) then x := x - f;
x := x/10;
round := x;
end;

s := Round(s)

В настройках поставить floating-point

[barsunduk]

а у меня вот такая странная хрень получилась. работает без Frac и floating-point ставить не надо. округляет по правилам, вроде.

function Round1(x: real): string;
begin
  Round1 := '' + trunc(x) + ',' + (trunc(x * 100) - (trunc(x) * 100) + 5) div 10;
end; 


еще и запятую вместо точки поставить можно ..)