Comment ajouter des zéros non significatifs à un nombre (format Delphi)

Différentes applications nécessitent des valeurs spécifiques pour se conformer aux paradigmes structurels. Par exemple, les numéros de sécurité sociale comportent toujours neuf chiffres. Certains rapports nécessitent que les nombres soient affichés avec un nombre fixe de caractères. Les numéros de séquence, par exemple, commencent généralement par 1 et augmentent sans fin, ils sont donc affichés avec des zéros en tête pour présenter un attrait visuel.

Comme un Programmeur Delphi, votre approche pour ajouter un nombre avec des zéros en tête dépend du cas d'utilisation spécifique de cette valeur. Vous pouvez simplement choisir de remplir une valeur d'affichage, ou vous pouvez convertir un nombre en chaîne pour le stockage dans une base de données.

Utilisez une fonction simple pour modifier l'affichage de votre numéro. Utilisation format pour effectuer la conversion en fournissant une valeur pour longueur (la longueur totale de la sortie finale) et le nombre que vous souhaitez remplir:

str: = Format ('%. * d, [longueur, nombre])

Pour remplir le chiffre 7 avec deux zéros en tête, branchez ces valeurs dans le code:

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

Le résultat est 007 avec la valeur renvoyée sous forme de chaîne.

Utilisez une fonction de remplissage pour ajouter des zéros non significatifs (ou tout autre caractère) chaque fois que vous en avez besoin dans votre script. Pour convertir des valeurs qui sont déjà des entiers, utilisez:

function LeftPad (valeur: entier; longueur: entier = 8; pad: char = '0'): string; surcharge; 

commencer

 résultat: = RightStr (StringOfChar (pad, longueur) + IntToStr (valeur), longueur); 

fin;

Si la valeur à convertir est déjà une chaîne, utilisez:

fonction LeftPad (valeur: chaîne; longueur: entier = 8; pad: char = '0'): string; surcharge;

commencer

 résultat: = RightStr (StringOfChar (pad, longueur) + valeur, longueur);

fin;

Cette approche fonctionne avec Delphes 6 éditions et versions ultérieures. Ces deux blocs de code ont par défaut un caractère de remplissage de 0 avec une longueur de sept caractères retournés; ces valeurs peuvent être modifiées pour répondre à vos besoins.

Lorsque LeftPad est appelé, il renvoie des valeurs selon le paradigme spécifié. Par exemple, si vous définissez une valeur entière sur 1234, appelez LeftPad:

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

renverra une valeur de chaîne de 0001234.