Как добавить ведущие нули к числу (формат Delphi)

Зарко Гайич имеет опыт работы с SQL и практические знания систем баз данных, таких как MS SQL Server, Firebird, Interbase и Oracle. Он также владеет XML, DHTML и JavaScript.

Различные приложения требуют определенных значений для соответствия структурным парадигмам. Например, номера социального страхования всегда состоят из девяти цифр. В некоторых отчетах требуется, чтобы числа отображались с фиксированным количеством символов. Например, порядковые номера обычно начинаются с 1 и увеличиваются без конца, поэтому они отображаются с ведущими нулями для визуальной привлекательности.

Как программист Delphi, ваш подход к добавлению числа с ведущими нулями зависит от конкретного варианта использования этого значения. Вы можете просто добавить отображаемое значение или преобразовать число в строку для хранения в базе данных.

Отображение метода заполнения

Используйте простую функцию, чтобы изменить способ отображения вашего номера. Использовать формат чтобы выполнить преобразование, указав значение для длина (общая длина конечного вывода) и номер, который вы хотите заполнить:

Чтобы дополнить число 7 двумя ведущими нулями, вставьте эти значения в код:

Результат 007 со значением, возвращаемым в виде строки.

Преобразовать в строковый метод

Используйте функцию заполнения для добавления начальных нулей (или любого другого символа) в любое время, когда вам это нужно в вашем скрипте. Чтобы преобразовать значения, которые уже являются целыми числами, используйте:

Если значение, которое нужно преобразовать, уже является строкой, используйте:

Этот подход работает с Delphi 6 и более поздними версиями. В обоих этих кодовых блоках по умолчанию используется символ заполнения длиной семь возвращаемых символов; эти значения могут быть изменены в соответствии с вашими потребностями.

Когда вызывается LeftPad, он возвращает значения в соответствии с указанной парадигмой. Например, если вы установите целочисленное значение 1234, вызов LeftPad: