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

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

Като Delphi програмист, вашият подход за добавяне на число с водещи нули зависи от конкретния случай на използване за тази стойност. Можете просто да изберете да изтриете стойността на дисплея или да преобразувате число в низ за съхранение в база данни.

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

str: = Формат ('%. * d, [дължина, номер])

За да подплатите числото 7 с две водещи нули, включете тези стойности в кода:

str: = Формат ('%. * d, [3, 7]);

Резултатът е 007 със стойността, върната като низ.

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

функция LeftPad (стойност: цяло число; дължина: цяло число = 8; pad: char = '0'): низ; претоварване; 

започвам

 резултат: = RightStr (StringOfChar (тампон, дължина) + IntToStr (стойност), дължина); 

край;

Ако стойността за преобразуване вече е низ, използвайте:

функция LeftPad (стойност: низ; дължина: цяло число = 8; pad: char = '0'): низ; претоварване;

започвам

 резултат: = RightStr (StringOfChar (тампон, дължина) + стойност, дължина);

край;

Този подход работи с Delphi 6 и по-нови издания. И двата кода блокират по подразбиране знака за подплънки на 0 с дължина от седем върнати знака; тези стойности могат да бъдат променени, за да отговарят на вашите нужди.

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

i: = 1234;
r: = LeftPad (i);

ще върне стойност на низ 0001234.