Как откинуть часть числа?

← →
Вера (2003-11-10 12:07) [0]

Как откинуть часть числа?

например есть 1,3458687 а надо вывести на экран 1,345

← →
Ломброзо © (2003-11-10 12:13) [1]

Writeln(Format("%.3f", 1.3458687));

← →
Ru © (2003-11-10 12:16) [2]

один из вариантов (всё равно выводить в строковом формате) это:
var
a:real;//это наше число
tmp:string;//строка результат
i:integer;//понадобится

tmp:=floattostr(a);
i:=pos(",",tmp);
Edit1.Text:=copy(tmp,0,i+3);

если не ошибся. мы скопируем из строки tmp начиная с нуля (может надо поставить 1) i+3 символов, что должно соответствовать необходимому представлению числа

← →
Ломброзо © (2003-11-10 12:19) [3]

> Ru © (10.11.03 12:16) [2]
Дадад. Один мой поциент любил у себя в региональных настройках разделителем символ # выставлять...

← →
MalkoLinge © (2003-11-10 12:23) [4]

Category

string formatting routines

function Format(const Format: string; const Args: array of const): string;

Тогда и так можно:
FloatToStr(Round(1.3458687*1000)/1000)
только в данном случае получится, если я не ошибаюсь 1.346 в результате...

Возможно будет удобнее FormatFloat

Как откинуть часть числа? Найти похожие ветки