Текущий архив: 2002.02.07;
Скачать: CL | DM;
Вниз
Как проще сделать что-бы отображать число 1 в виде 01 Найти похожие ветки
← →
Dmitriy_R (2002-01-21 14:11) [0]Собственно Тема?
← →
yaJohn © (2002-01-21 14:19) [1]s:=inttostr(x);
while length(s)<10 do s:=s+"0"+s;
← →
Alx2 © (2002-01-21 14:41) [2]Так немного быстрее :))
function MyIntTostr( value, len : integer):String;
// value - число, которой отображаем в нужном виде
// len - минимально необходимое количество знаков в ответе.
Begin
Result := IntToStr(value);
Result := StringOfChar("0", Len - length(Result))+Result;
End;
Конечно, value>=0.
← →
Alx2 © (2002-01-21 14:43) [3]> yaJohn © (21.01.02 14:19)
вместо while length(s)<10 do s:=s+"0"+s;
имелось в виду
while length(s)<10 do s:="0"+s;? :)
← →
DK © (2002-01-21 14:45) [4]А не пробовал через FormatCurr ?
← →
Фэ © (2002-01-21 15:12) [5]Еще вариант
uses Mask;
FormatMaskText("\0;0","12345") // 012345
← →
USAtyj © (2002-01-21 16:07) [6]
format("%.4d",[MyNumber])
где 4 - число символов, до которго надо заполнить нулями.
← →
Romkin © (2002-01-21 16:46) [7]До кучи: FormatFloat("00", i)
Страницы: 1 вся ветка
Текущий архив: 2002.02.07;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.01 c
