IntToStr avec des 0 devant

Re-Salut :D

Ma question est simple, mais la résolution, ormi par une fonction faite par mes propres soins, ne m'est pas intuitive...
J'ai une variable Index, de type Integer, lorsque je fais IntToStr(index) j'aimerais que la valeur renvoyé soit 001 si index vaut 1 et plus généralement 00X s'il s'agit du chiffre X ...


Merci de votre aide ;)

Cherche avec la fonction FormatFloat

Bonjour.

Code:

---

1 2 3 4 5 6 7 8

Var S : String;     begin S := IntToStr(I); While Length(S) < 3 Do S := '0' + S;

---

C'est tout.

La seule solution que je vois, c'est de faire

Code:

---

'00'+IntToStr(index)

---

Il me semble que Delphi ne prend pas en comtpe les zéros devant un nombre entier.

formatfloat('000',1) = '001'

a+

Philippe : ça j'y avais effectivement pensé, mais c'est jsutement ce que je voulais éviter, je voulais savoir s'il existe une fonction de delphi qui me le fait directement ...
Mais merci pour ton aide

Big : Non ça ça peut pas aller parce que ... je me suis peut-être mal exprimé en fait. En gros je veux que ça m'écrive les chiffres 001 puis après que ça passe à 010, donc avec ta méthode ça peut pas aller ...
Merci quand même

Yurck : Je vais tester ça, on verra bien :)


Quoi qu'il en soit merci à tous pour votre aide ;)

Merci à vous tous, c'est bon ça marche comme ça :

Code:

---

FormatFloat('000',index+1)

---

Ce qui me renvoie un string formaté en 001 002 003 ... 010 ...


Merci à tous pour votre contribution ;)