Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Вниз
Вроде элементарно.... но как? :) Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.83 MB
Время: 0.034 c
