Как сделать если число меньше 3-х знаков — приписывался 0 перед числом

Posted by Chas under Delphi

Вобщем, тупой вопрос. Есть числа до 255 (integer) как сделать вывод, чтоб если число меньше 3-х знаков — приписывался 0 перед числом (или 00).

Serge_Bliznykov
Вы не поверите! Это (и далеко не только это) легко можно сделать функцией Format:

procedure TForm1.Button1Click(Sender: TObject);

var x : byte;

begin

  x := Random(256);

  Button1.Caption := Format('число %.3d', [x]);

end;

Баламут
Ну как-нибудь так. например:

 for i := 2 downto Length(IntToStr(n)) do

 s := '0' + s;

тема на форуме

Похожие статьи

• Перенос строки в функции Format
• Вывод результата в нужном диве
• Подсказка для каждого столбца в DBGrid
• Форматирование даты в php
• Вывести данные в таблицу с фиксированным размером столбцов
• Вывод данных в textbox
• Сколько времени прошло с момента предыдущего запуска программы?
• Как вывести слово в Label по одной букве с использованием таймера?