отделение одно цифры запятой

← →
Begemot (2003-03-13 17:54) [0]

Подскажите, если не трудно, как от числа отделить одну цифру запятой.

← →
Palladin © (2003-03-13 18:09) [1]

хм... я понимаю что тебе предельно ясен твой вопрос, тока я нифига не пойму...

может это?
strNumber:=inttostr(nNumber div 10)+","+inttostr(nNumber mod 10);

← →
Anatoly Podgoretsky © (2003-03-13 18:19) [2]

Begemot (13.03.03 17:54)
Раздели на 10

← →
Begemot (2003-03-13 20:47) [3]

Я неправильно вопрос задал. О делении на 10 я сразу и подумал. Только мне надо от округлённого числа одну цифру отделить.
Так не делится
round(StrToInt(X.Text)*26) / 10
делю так
round(StrToInt(X.Text)*26) div 10 , но после деления он все цифры после запятой выкидывает.
Например: x=1
round(StrToInt(X.Text)*26) div 10 = 2, а должно
быть 2,6 вроде.

← →
veb (2003-03-13 23:38) [4]

Народ, кто-нибудь что-нибудь понимает чего он хочет?

label1.Caption := FloatToStr(round(StrToInt(edit1.text)*26)/10);

ради прикола проверил.

if length(s)>1 then insert(",",s,length(s));

отделение одно цифры запятой Найти похожие ветки