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

Как преобразовать число (например 12) в строку типа "012"   Найти похожие ветки 

← →
INTAARI   (2004-03-19 14:41) [0]

Добрый день колеги!!!
У меня возникла необходимость преобразовать число целого типа в строку. Длинна строки 3 символа, причем если число занимает меньше символов, то оставшиеся заполняются нулем.
Например: число 6 ->"006"
         число 12->"012"
Немогу выбрать подходящюю функцию, если она имеется, если нет то и так понятно как делать.

---

← →
Dimka Maslov ©   (2004-03-19 14:54) [1]

Проблема-то в чём? В нежелании хотя-бы поверхностно ознакомиться с языком программирования? Или мышление отсутствует? Или просто лень?

---

← →
Fay ©   (2004-03-19 14:58) [2]

Format("%3.3d", [6])

---

← →
Романов Р.В. ©   (2004-03-19 15:00) [3]

F1 - Format function

---

← →
Digitman ©   (2004-03-19 15:09) [4]

function FormatInteger(MaxDigits, Value: Integer): String;
begin
 Result := StringOfChar("0", MaxDigits);
 while (Value <> 0) and (MaxDigits > 0) do
 begin
   Result[MaxDigits] := char(Value mod 10 + byte(char("0")));
   Value := Value div 10;
   Dec(MaxDigits);
 end;
end;

p.s. только для челых чисел >= 0

---

← →
INTAARI   (2004-03-19 15:09) [5]

Извиняюсь проглядел!!!
Вопросов больше не имею.

---

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

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



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