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

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

Как проще сделать что-бы отображать число 1 в виде 01 [D6, Win95/98]

Dmitriy_R ©   (2002-01-21 14:11:00) 

Собственно Тема?

---

Romkin   (2002-01-21 16:46:00) [1]

До кучи: FormatFloat("00", i)

---

USAtyj   (2002-01-21 16:07:00) [2]


format("%.4d",[MyNumber])

где 4 - число символов, до которго надо заполнить нулями.

---

Фэ   (2002-01-21 15:12:00) [3]

Еще вариант
uses Mask;
FormatMaskText("\0;0","12345") // 012345

---

DK   (2002-01-21 14:45:00) [4]

А не пробовал через FormatCurr?

---

Alx2   (2002-01-21 14:43:00) [5]

> yaJohn © (21.01.02 14:19)
вместо while length(s)<10 do s:=s+"0"+s;
имелось в виду
while length(s)<10 do s:="0"+s;? :)

---

Alx2   (2002-01-21 14:41:00) [6]

Так немного быстрее :))

function MyIntTostr( value, len : integer):String;
// value - число, которой отображаем в нужном виде
// len - минимально необходимое количество знаков в ответе.
Begin
Result := IntToStr(value);
Result := StringOfChar("0", Len - length(Result))+Result;
End;

Конечно, value>=0.

---

yaJohn   (2002-01-21 14:19:00) [7]

s:=inttostr(x);
while length(s)<10 do s:=s+"0"+s;

---

Наверх