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

← →
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

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

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

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

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