Různé aplikace vyžadují specifické hodnoty, aby odpovídaly strukturálním paradigmatům. Například čísla sociálního zabezpečení mají vždy devět číslic. Některé zprávy vyžadují, aby se čísla zobrazovala s pevným počtem znaků. Například pořadová čísla obvykle začínají 1 a přírůstek bez konce, takže jsou zobrazeny s nulovými nuly, aby představovaly vizuální přitažlivost.
Jako Programátor Delphi, váš přístup k přidání čísla s úvodními nuly závisí na konkrétním případu použití pro tuto hodnotu. Můžete jednoduše zvolit vložení zobrazované hodnoty nebo můžete převést číslo na řetězec pro uložení do databáze.
Metoda vycpávky displeje
Použijte přímou funkci ke změně zobrazení vašeho čísla. Použití formát provést převod dodáním hodnoty pro délka (celková délka konečného výstupu) a číslo, které chcete vložit:
str: = Formát ('%. * d, [délka, číslo])
Chcete-li vložit číslo 7 dvěma úvodními nuly, připojte tyto hodnoty do kódu:
str: = Format ('%. * d, [3, 7]);
Výsledek je 007 s hodnotou vrácenou jako řetězec.
Převést na metodu String
Pomocí funkce odsazení můžete připojit nuly (nebo jakékoli jiné znaky) kdykoli je budete potřebovat v rámci skriptu. Chcete-li převést hodnoty, které jsou již celá čísla, použijte:
funkce LeftPad (hodnota: celé číslo; délka: celé číslo = 8; pad: char = '0'): string; přetížení;
začít
výsledek: = RightStr (StringOfChar (pad, délka) + IntToStr (hodnota), délka);
konec;
Pokud již převáděná hodnota je řetězec, použijte:
function LeftPad (value: string; délka: celé číslo = 8; pad: char = '0'): string; přetížení;
začít
výsledek: = RightStr (StringOfChar (pad, délka) + hodnota, délka);
konec;
Tento přístup funguje Delphi 6 a novější vydání. Oba tyto kódové bloky jsou standardně nastaveny na výplňový znak 0 s délkou sedmi vrácených znaků; tyto hodnoty mohou být upraveny podle vašich potřeb.
Když se volá LeftPad, vrací hodnoty podle zadaného paradigmatu. Pokud například nastavíte celočíselnou hodnotu na 1234, volání LeftPad:
i: = 1234;
r: = LeftPad (i);
vrátí hodnotu řetězce 0001234.