Форум: "Основная";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c