Erinevad rakendused vajavad struktuurilistele paradigmadele vastamiseks konkreetseid väärtusi. Näiteks on sotsiaalkindlustuse numbrid alati üheksa numbrit pikad. Mõnedes aruannetes nõutakse, et numbrid kuvataks fikseeritud koguse tähemärkidega. Näiteks järjestusnumbrid algavad tavaliselt 1-ga ja astmeliselt ilma lõputa, nii et visuaalse atraktiivsuse huvides kuvatakse need viivate nullidega.
Nagu Delphi programmeerija, sõltub teie lähenemisviis nullini arvu lisamisel selle väärtuse konkreetsest kasutusjuhust. Võite valida lihtsalt kuvaväärtuse korrigeerimise või teisendada numbri stringina andmebaasis talletamiseks.
Ekraani polstrimeetod
Oma numbri kuvamise muutmiseks kasutage sirget funktsiooni. Kasutage vormingus teisendada, sisestades väärtuse pikkus (lõpliku väljundi kogupikkus) ja number, mida soovite polsterdada:
str: = vorming ('%. * d, [pikkus, arv])
Numbri 7 kahe esitähega sisestamiseks ühendage need väärtused koodiga:
str: = vorming ('%. * d, [3, 7]);
Tulemuseks on 007 mille väärtus tagastatakse stringina.
Teisenda stringimeetodiks
Kasutage polstrifunktsiooni, et lisada nullid (või muud märgid) igal ajal, kui seda skripti jaoks vaja läheb. Juba täisarvude teisendamiseks kasutage:
funktsioon LeftPad (väärtus: täisarv; pikkus: täisarv = 8; padi: char = '0'): string; ülekoormus;
alustada
tulemus: = RightStr (StringOfChar (padi, pikkus) + IntToStr (väärtus), pikkus);
lõpp;
Kui teisendatav väärtus on juba string, kasutage:
funktsioon LeftPad (väärtus: string; pikkus: täisarv = 8; padi: char = '0'): string; ülekoormus;
alustada
tulemus: = RightStr (StringOfChar (padi, pikkus) + väärtus, pikkus);
lõpp;
See lähenemisviis töötab Delphi 6 ja uuemad väljaanded. Mõlemad koodiplokid vaikimisi täidavad tähemärki 0 pikkusega seitse tagasi pööratud tähemärki; neid väärtusi võidakse teie vajadustele vastavaks muuta.
Kui LeftPad kutsutakse, tagastab see väärtused vastavalt määratletud paradigmale. Näiteks kui seate täisarvuks 1234, helistades LeftPadile:
i: = 1234;
r: = LeftPad (i);
tagastab stringi väärtuse 0001234.