Вроде элементарно.... но как? :)

← →
shane54 (2002-04-12 16:43) [0]

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

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

← →
Reindeer Moss Eater (2002-04-12 16:45) [1]

Может тебе все таки надо чтобы строка занимала 4 симола?

← →
kull (2002-04-12 16:48) [2]

S:=Format("%.10d",[1234]);

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

← →
panov (2002-04-12 16:48) [3]

StringOfChar используй

← →
Андрей Сенченко (2002-04-12 16:49) [4]

Итоговая переменная должна быть типа string[4]
Далее:
1. Вычисляешь исходную длину строки через Length
2. В Case в зависимости от результата добавляешь эту строку к строкам "0", "00" или "000"

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

← →
Бурундук (2002-04-12 16:49) [5]

Format("%4.4d",[i])

← →
kull (2002-04-12 16:50) [6]

да все проще, используй функцию Format.

← →
PVOzerski (2002-04-12 16:55) [7]

var
s:string;
i:longint;
begin
s:=inttostr(i);
while length(s)<4 do
s:="0"+s;

← →
Anatoly Podgoretsky (2002-04-12 16:57) [8]

FormatFloat("0000",N);

← →
shane54 (2002-04-12 17:03) [9]

Сейчас попробую - ВСЕМ СПАСИБО

Вроде элементарно.... но как? :) Найти похожие ветки