Discussion :

[LuckyLuke56]

Bjr à tous,
J'utilise la fonction strzero dont voici la syntaxe "FieldNom:='MonChamp'+StrZero(2,IntToStr(i))" pour renommer des champs MonChamp01, 02 etc jusque 150. le champ 100 pose problème il est oublié dans la procédure. Je crois que cela vient de cette fonction.
Quelqu'un pourrait-il m'éclairer pour résoudre ce souci?
merci

[peter27x]

Bjr à tous,
J'utilise la fonction strzero dont voici la syntaxe "FieldNom:='MonChamp'+StrZero(2,IntToStr(i))" pour renommer des champs MonChamp01, 02 etc jusque 150. le champ 100 pose problème il est oublié dans la procédure. Je crois que cela vient de cette fonction.
Quelqu'un pourrait-il m'éclairer pour résoudre ce souci?
merci

C'est quoi cette StrZero() ? Delphi 7 ne me la propose pas dans son aide, on dirait qu'il la connait pas.

[Gilbert Geyer]

Salut,

Effectivement StrZero() : inconnu au bataillon, ça doit être une fonction "faite maison".

Par contre vu la syntaxe StrZero(2,IntToStr(i)) je dirais au piffomètre que vu que cela marche pour MonChamp01, 02 etc ... et que ça coince pour le champ 100 je remplacerais StrZero(2,IntToStr(i)) par StrZero(3,IntToStr(i)) en éspérant que cela donne :
MonChamp001
MonChamp111

En tous cas ça ne coûte rien d'essayer.

A+.

[guillemouze]

sinon utilise la fonction format :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Format('%d', [5]); // '5'
Format('%3d', [5]); // '  5' (2 espaces avant le 5)
Format('%.3d', [5]); // '005'
Format('%.3d', [1234]); // '1234'