необычный счетчик

[grom333]

Здравствуйте, мне нужно сделать счетчик (№ квитанции). Который состоит из 5 цифр, но проблема в том, что он должен начинаться с 00000, следующее число 00001. Как такое можно реализовать?)))

[Valio]

it then и IntToStr.

[grom333]

Сообщение от Valio

it then и IntToStr.

прежде чем использовать inttostr нужно получить пятизначное число с нулями впереди. Я Вас не понял, чем поможет ваша подсказка?

[Valio]

If Length(IntToStr(N)) = 1 Then Result := '0000' + IntToStr(N);
If Length(IntToStr(N)) = 2 Then Result := '000' + IntToStr(N);

Так понятней?

[Swarog]

const maxlen = 5
var s: string
begin
////
 s := inttostr(Number);
 s := DupeString('0',maxlen - length(s)) + s;
//// теперь в s число с ведущими нулями 
end;