Как добавить незначащие нули в число
Давайте напишем функцию AddLeadZero, которой будет передаваться два параметра: Number - число, к которому будем добавлять нули; Length - общее количество символов (если меньше, добавить нули).
function AddLeadZero ( const Number, Length : integer) : string; begin result := SysUtils.Format('%.*d', [Length, Number]) ; end;
Как использовать:
AddLeadZero(7, 10);
В результате мы получим девять нулей и на конце семерку (0000000007).
Комментарии