Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Русланка © (2005-08-11 13:32:00)
Необходимо чтобы числа отображались в пятизначной форме
00001
00453

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

Fay (2005-08-11 21:26:00) [1]
2 Leonid Troyanovsky © (11.08.05 21:12) [14]
Конечно. Я сначала проверил. Можете тоже проверить 8).

Leonid Troyanovsky (2005-08-11 21:12:00) [2]

> Leonid Troyanovsky © (11.08.05 21:07) [13]

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

Фу-ты. В смысле, доказуемо?

--
Regards, LVT.

Leonid Troyanovsky (2005-08-11 21:07:00) [3]

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

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

--
Regards, LVT.

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

Leonid Troyanovsky (2005-08-11 20:06:00) [5]

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

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

--
Regards, LVT.

Alexander Panov (2005-08-11 18:28:00) [6]
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;

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

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

afanasic (2005-08-11 16:30:00) [9]

> Leonid Troyanovsky

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

Leonid Troyanovsky (2005-08-11 14:36:00) [10]

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

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

--
Regards, LVT.

Fay (2005-08-11 14:32:00) [11]
2 Leonid Troyanovsky © (11.08.05 14:25) [4]
А если 123456789 ? 8)

Leonid Troyanovsky (2005-08-11 14:25:00) [12]

> 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.

afanasic (2005-08-11 14:15:00) [13]
st := IntToStr(x);
while Length(st) < 5 do
st := '0'+st;

Leonid Troyanovsky (2005-08-11 13:51:00) [14]

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

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

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

--
Regards, LVT.

Digitman (2005-08-11 13:35:00) [15]
решение "в лоб" :

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »