Как проще сделать что-бы отображать число 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 в виде 01 Найти похожие ветки