| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Формат чисел

Страницы:   < 1 2 >

ValeX ©   (2002-07-03 14:24:00) 

Есть, например, числа:
0.000001
5.061
48.3016
Необходимо выводить на Label в формате - 2 цифры после запятой,
но если вторая цифра нуль, ее не выводить, и если два ноля,
их не показывать.

ЗЫ FloatToStrF не предлагать, надо универсальную процедуру,
чтобы ввел любое число, а на выходе стринг.

---

alexdbases   (2002-07-03 14:40:00) [21]

В хелпа есть Format()

---

Kaban   (2002-07-03 14:39:00) [22]

см в helpe функцию formatfloat там есть пример, можно обойтись и без while

---

MBo   (2002-07-03 14:34:00) [23]

ну хоть так
s:=formatfloat("0.00",d);
while (s[length(s)]="0") do delete(s,length(s),1);
//if (s[length(s)]=".") then delete(s,length(s),1);
//если надо убирать точку
label1.caption:=s;

---

Страницы:   < 1 2 >

Наверх