Как преобразовать число потери нулей впереди

← →
Русланка (2005-08-11 13:32) [0]

Необходимо чтобы числа отображались в пятизначной форме
00001
00453

При преобразовании IntToStr незначащие нули спереди отбрасываются. Есть ли другая функция, чтобы не отбрасывала нули?

← →
Digitman © (2005-08-11 13:35) [1]

решение "в лоб" :

FormatFloat("00000", StrToFloat(IntToStr(MyIntValue)));

← →
Leonid Troyanovsky © (2005-08-11 13:51) [2]

> Русланка (11.08.05 13:32)

> Есть ли другая функция, чтобы не отбрасывала нули?

Format("%.5d", [453]);

--
Regards, LVT.

← →
afanasic (2005-08-11 14:15) [3]

st := IntToStr(x);
while Length(st) < 5 do
st := "0"+st;

← →
Leonid Troyanovsky © (2005-08-11 14:25) [4]

> afanasic (11.08.05 14:15) [3]
> st := IntToStr(x);
> while Length(st) < 5 do
> st := "0"+st;

Тогда уж RightStr("00000"+IntToStr(st), 5)

--
Regards, LVT.

← →
Fay © (2005-08-11 14:32) [5]

2 Leonid Troyanovsky © (11.08.05 14:25) [4]
А если 123456789 ? 8)

← →
Leonid Troyanovsky © (2005-08-11 14:36) [6]

> Fay © (11.08.05 14:32) [5]
> 2 Leonid Troyanovsky © (11.08.05 14:25) [4]
> А если 123456789 ? 8)

Вот такая у нас пятизначная форма.
Зато нули не отбрасывает.

--
Regards, LVT.

← →
afanasic (2005-08-11 16:30) [7]

> Leonid Troyanovsky

На пальцах, чтобы не задействовать лишние модули и неизвестные функции...
Можно усложнить с обрезанием:
st := Copy(IntToStr(x),1,5);
while Length(st) < 5 do
st := "0"+st;

← →
Fay © (2005-08-11 16:37) [8]

2 afanasic (11.08.05 16:30) [7]
Вы - маньяк?! Без конкатенации в цикле жить не можете?

← →
afanasic (2005-08-11 16:57) [9]

А если это запихнуть в функцию, а функцию в модуль SysUtils, тогда ей будут пользоваться?
Это первое, что приходит в голову, если не знаешь стандартных...
По крайней мере, какой вопрос, такой ответ...
Другой вариант:
st := "00000"+IntToStr(x);
st := Copy(st,Length(st)-4,5);

← →
Alexander Panov © (2005-08-11 18:28) [10]

function PadL(const Src: String; Len: Integer; Ch: Char="0"): String; overload; var LenSrc: Integer; begin Result := Trim(Src); LenSrc := Length(Result); if LenSrc>Len then Exit; Result := StringOfChar(Ch,Len-LenSrc)+Result; end; function PadL(const Src: Integer; Len: Integer): String; overload; begin Result := PadL(Src,Len); end;

> Fay © (11.08.05 16:37) [8]
> 2 afanasic (11.08.05 16:30) [7]
> Вы - маньяк?! Без конкатенации в цикле жить не можете?

На самом деле, не все так уж плохо.
Т.е., для строк память выделяется порциями,
ну, скажем, 8 байт (не помню).

--
Regards, LVT.

> Fay © (11.08.05 20:56) [12]
> 2 Leonid Troyanovsky © (11.08.05 20:06) [11]
> Достаточно плохо. Разница в скорости - в разы.

Это доказательно?

--
Regards, LVT.

Как преобразовать число потери нулей впереди Найти похожие ветки