Ako pridať úvodné nuly k číslu (formát Delphi)

Rôzne aplikácie si vyžadujú špecifické hodnoty, aby vyhovovali štrukturálnym paradigmám. Napríklad čísla sociálneho zabezpečenia majú vždy deväť číslic. Niektoré správy vyžadujú, aby sa čísla zobrazovali s pevným počtom znakov. Napríklad poradové čísla zvyčajne začínajú číslom 1 a prírastkom bez konca, takže sa zobrazujú s nulovými číslami, aby prezentovali vizuálnu príťažlivosť.

Ako Programátor Delphi, váš prístup k pridaniu čísla s úvodnými nulami závisí od konkrétneho prípadu použitia pre túto hodnotu. Môžete jednoducho zvoliť vloženie zobrazenej hodnoty alebo môžete číslo previesť na reťazec na uloženie do databázy.

Použite priamu funkciu na zmenu spôsobu zobrazenia vášho čísla. použitie formát vykonať konverziu zadaním hodnoty pre dĺžka (celková dĺžka konečného výstupu) a číslo, ktoré chcete vložiť:

str: = Formát ('%. * d, [dĺžka, číslo])

Ak chcete číslo 7 vložiť dvoma úvodnými nulami, vložte tieto hodnoty do kódu:

str: = Formát ('%. * d, [3, 7]);

Výsledkom je 007 s hodnotou vrátenou ako reťazec.

Použite funkciu vypchávky a pripojte počiatočné nuly (alebo akékoľvek iné znaky) kedykoľvek to budete potrebovať vo svojom skripte. Ak chcete previesť hodnoty, ktoré sú už celé čísla, použite:

funkcia LeftPad (hodnota: celé číslo; dĺžka: celé číslo = 8; pad: char = '0'): string; preťaženia; 

začať

 výsledok: = RightStr (StringOfChar (blok, dĺžka) + IntToStr (hodnota), dĺžka); 

koniec;

Ak je hodnota, ktorá sa má previesť, už reťazec, použite:

function LeftPad (hodnota: string; dĺžka: celé číslo = 8; pad: char = '0'): string; preťaženia;

začať

 result: = RightStr (StringOfChar (blok, dĺžka) + hodnota, dĺžka);

koniec;

Tento prístup funguje Delphi 6 a novšie vydania. Obidva tieto bloky kódu sú predvolene znakom vypchávky 0 s dĺžkou siedmich vrátených znakov; tieto hodnoty môžu byť upravené tak, aby vyhovovali vašim potrebám.

Keď sa volá LeftPad, vracia hodnoty podľa zadanej paradigmy. Napríklad, ak nastavíte celé číslo na 1234, volanie LeftPad:

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

vráti hodnotu reťazca 0001234.