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

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

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

Вроде элементарно.... но как? :) [D6, NT4]

shane54 © (2002-04-12 16:43:00)
Вопрос таков - как по-простомудобавлять перед числом 0 если оно меньше 10, как добавлять перед числом 00 если оно меньше 100 - короче, мне надо, чтобы число в любом случае занимало бы 4 цифры, даже если оно требует 1 цифру.
1 = 0001, 150 = 0150...

P.S. такова спецификация :(

shane54 (2002-04-12 17:03:00) [1]
Сейчас попробую - ВСЕМ СПАСИБО

Anatoly Podgoretsky (2002-04-12 16:57:00) [2]
FormatFloat("0000",N);

PVOzerski (2002-04-12 16:55:00) [3]
var
s:string;
i:longint;
begin
s:=inttostr(i);
while length(s)<4 do
s:="0"+s;

kull (2002-04-12 16:50:00) [4]
да все проще, используй функцию Format.

Андрей Сенченко (2002-04-12 16:49:00) [5]
Итоговая переменная должна быть типа string[4]
Далее:
1. Вычисляешь исходную длину строки через Length
2. В Case в зависимости от результата добавляешь эту строку к строкам "0", "00" или "000"

Пиво за крутую идею не прошу :)

Бурундук (2002-04-12 16:49:00) [6]
Format("%4.4d",[i])

kull (2002-04-12 16:48:00) [7]
S:=Format("%.10d",[1234]);

в результате получаем: S = "0000001234"

panov (2002-04-12 16:48:00) [8]
StringOfChar используй

Reindeer Moss Eater (2002-04-12 16:45:00) [9]
Может тебе все таки надо чтобы строказанимала 4 симола?

Наверх

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