Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: 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 вся ветка

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
3-80805
B_A_V
2002-04-03 17:33
2002.04.25
Использую в таблице тип money, datetime


7-81101
Leviathan
2001-12-06 21:13
2002.04.25
Stay On Top


1-81003
Sound
2002-04-10 00:48
2002.04.25
Что нибудь вместо Random


1-81008
danger
2002-04-12 02:21
2002.04.25
Как в обьект Richedit загрузить текст из Wordовского файла(DOC)


3-80793
koks
2002-04-04 12:30
2002.04.25
ADO -> Access 2000 ????