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

Вниз

Как отформатировать число чтобы вывести его с ведущими нулями?   Найти похожие ветки 

← →
kserg@ukr.net   (2002-05-14 17:05) [0]

спасибо

---

← →
Anatoly Podgoretsky ©   (2002-05-14 17:12) [1]

Форматная строка с нужным количеством нулей

---

← →
kserg@ukr.net   (2002-05-14 17:14) [2]

спасибо :(

---

← →
Johnmen ©   (2002-05-14 17:20) [3]

Куда вывести-то ?

---

← →
kserg@ukr.net   (2002-05-14 17:22) [4]

в строку, т.е на экран :)

---

← →
Johnmen ©   (2002-05-14 17:29) [5]

В каком компоненте отображается ?

---

← →
Alx2 ©   (2002-05-14 17:33) [6]


Function MyIntTostr(Value, len: Integer): String;
Begin
Result := IntToStr(Value);
Result := StringOfChar("0", len - Length(Result)) + Result;
End;

len - требуемая символьная длина числа (недостающие позиции заполняются ведущими пробелами).

---

← →
kserg@ukr.net   (2002-05-14 17:36) [7]

>Johnmen © (14.05.02 17:29)
В каком компоненте отображается ?

TLabel

---

← →
Alx2 ©   (2002-05-14 17:38) [8]

>kserg@ukr.net (14.05.02 17:36)
Label1.Caption := MyIntToStr(23,4);
Присвоится: Label1.Caption = 0023

---

← →
Johnmen ©   (2002-05-14 17:42) [9]

типа FormatFloat("0000000.00",<>)

---

← →
MBo ©   (2002-05-14 18:11) [10]

label1.caption:=formatfloat("0000",17);

---

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

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

Наверх

Память: 0.48 MB
Время: 0.014 c