Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

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

 
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);

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


 
Jeer ©   (2003-03-14 00:31) [5]

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



Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-87975
kofman
2003-03-12 21:37
2003.03.27
Добавление иконки в ListView


6-88112
Dmitriy_R
2003-02-02 17:45
2003.03.27
МАС адрес


14-88149
pirat
2003-03-12 18:55
2003.03.27
нужна процедура архивации


1-87900
123456
2003-03-16 01:28
2003.03.27
Реестр


14-88207
aga
2003-03-10 15:27
2003.03.27
Електоронные книги