Cum să adăugați zero puncte la un număr (format Delphi)

Aplicații diferite necesită valori specifice pentru a se conforma paradigmelor structurale. De exemplu, numerele de securitate socială au întotdeauna nouă cifre. Unele rapoarte necesită afișarea numerelor cu o cantitate fixă ​​de caractere. Numerele de secvență, de exemplu, încep de obicei cu 1 și se mărește fără sfârșit, astfel încât acestea sunt afișate cu zero pentru a prezenta un apel vizual.

Ca programator Delphi, abordarea dvs. de a adăuga un număr cu zero-uri principale depinde de cazul specific de utilizare pentru acea valoare. Puteți pur și simplu opta pentru a adăuga o valoare afișată sau puteți converti un număr într-un șir pentru stocarea într-o bază de date.

Afișare Metoda de umplere

Utilizați o funcție simplă pentru a schimba modul în care se afișează numărul dvs. Utilizare format să efectueze conversia furnizând o valoare pentru lungime (lungimea totală a ieșirii finale) și numărul pe care doriți să îl suportați:

str: = Format ('%. * d, [lungime, număr])

Pentru a păstra numărul 7 cu două zero-uri principale, conectați aceste valori la cod:

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

Rezultatul este 007 cu valoarea returnată ca șir. 

Convertiți în metoda șirului

Utilizați o funcție de umplere pentru a adăuga zero zero (sau orice alt personaj) oricând aveți nevoie de acesta în scriptul dvs. Pentru a converti valori deja întregi, utilizați:

funcție LeftPad (valoare: număr întreg; lungime: număr întreg = 8; pad: char = '0'): șir; suprasarcină; 

începe

   rezultat: = RightStr (StringOfChar (pad, lungime) + IntToStr (valoare), lungime); 

Sfârșit;

Dacă valoarea care trebuie convertită este deja un șir, utilizați:

funcție LeftPad (valoare: șir; lungime: număr întreg = 8; pad: char = '0'): șir; suprasarcină;

începe

   rezultat: = RightStr (StringOfChar (pad, lungime) + valoare, lungime);

Sfârșit;

Această abordare funcționează cu Delphi 6 și edițiile ulterioare. Ambele blocuri de cod implicit au un caracter de umplere 0 cu o lungime de șaptepersonaje returnate; aceste valori pot fi modificate pentru a răspunde nevoilor dumneavoastră.

Când se numește LeftPad, returnează valorile în funcție de paradigma specificată. De exemplu, dacă setați o valoare întreagă la 1234, apelați LeftPad:

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

va returna o valoare a șirului de 0001234.