Текущий архив: 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.02 c
