Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c