générer un string de 01 a 100

Bonsoir a tous

j'ai trouver un générateur de mot de passe en delphi et j'essaie de lui ajouter des fonctions comme générer un user et j'ai ajouter une boucle pour générer par example 100 mot de passe aléatoire

maintenant je veux essayer d'ajouter un utilisateur et un mot de passe dans une TMemo j'ai commème réussi a le faire a partir d'un Tedit

mais ce que j'ai pas réussi a faire c'est générer un utilisateur par example je tappe le text dans le Tedit et générer le text example : user et lui ajouter une fonction pour 100 utilisateurs

example

user01 pass
user02 pass2
user03 pass3
user04 ....
user05 ...
user06 .....

to user100 pass100 ou random

a partir du Tedit.text

générer le text + numéritation 01 02 03 .... jusqu'a la valeur d'un TUPDown ou un autre TEdit2 . valeur (100 ) par example

Merci a tous

il va donc falloir faire une boucle de 1 à la borne (qu'elle vienne d'un Edit ou d'un TUpDown), dans laquelle il faudra concaténer la chaîne issue d'un Edit et une chaîne de longueur fixe (= celle de la borne) représentant la valeur de l'indice de boucle, précédé d'autant de '0' que nécessaire pour atteindre la longueur désirée.

Montre-nous ton code et décris les erreurs ou problèmes, qu'on puisse t'aider efficacement.

Bonjour,

désolé CoolIrc, mais ta question n'est pas très claire. Peux tu la reformuler ?

A+

Charly

On pourrait passer par un formatFloat pour dire de gérer la chaine avec les digits non rempli à 0...

Code:

---

FormatFloat('000' ,myNumber)

---

Si myNumber va de 1 à 100, alors on écrit 001, ..., 010, ..., 099, 100. On pourrait le gérer de la sorte même si la contrainte est d'avoir le nombre de '0' à mettre pour le formatage (cas du random).

Bonjour,

si j'ai bien compris, tu peux donc faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); Var Maxi : Integer ; i : Integer ; n : Integer ; Chaine : String ; Begin Maxi := 125 ; // pour cet exemple n := Trunc(log10(Maxi)) + 1 ; Chaine := '' ; For i := 1 To n do Chaine := Chaine + '0' ; For i := 1 To Maxi do Memo1.Lines.Add('User'+FormatFloat(Chaine,i)+ ' Pass'+FormatFloat(Chaine,i)) ; End;

---

Est ce bien cela que tu veux ?

A+

Charly

Merci à tous,

J'ai trouvé la solution. Après avoir lu un autre code et des essais pendant 3 heures j'ai fini par y arriver.

Code:

---

1 2	Memo1.Lines.Add((': ')+(Edit2.Text)+IntToStr(i+1)+(' ')+(edtPassword.Text)+(' ')); Memo2.Lines.Add((': ')+(Edit3.Text)+(' ')+(Edit4.Text)+(' ')+(Edit2.Text)+IntToStr(i+1)+(' ')+(edtPassword.Text))

---

Fallait faire un (i+1) pour qu'à chaque fois qu'il génère un user avec mot de passe aléatoire il ajoute un nombre au user généré.
Après il fallait faire une boucle du code pour qu'il génère à partir de la valeur du composant TupDown avec le Tedit et j'ai fixé la valeur du TupDown a 1000 pour qu'il génère 1000 fois un utilisateur avec un mot de passe aléatoire

Citation:

---

Envoyé par coolirc

Fallait faire un (i+1) pour qu'à chaque fois qu'il génère un user avec mot de passe aléatoire il ajoute un nombre au user généré.

---

En d'autres termes, il suffirait de démarrer la boucle à 1 plutôt qu'à 0 :mrgreen:

Citation:

---

Envoyé par coolirc

Code:

---

1 2	Memo1.Lines.Add((': ')+(Edit2.Text)+IntToStr(i+1)+(' ')+(edtPassword.Text)+(' ')); Memo2.Lines.Add((': ')+(Edit3.Text)+(' ')+(Edit4.Text)+(' ')+(Edit2.Text)+IntToStr(i+1)+(' ')+(edtPassword.Text))

---

---

Pourquoi toutes ces parenthèses :koi:

Regarde l'aide sur la commande Format. Quoique moins efficace, je trouve l'écriture plus lisible lorsqu'une certaine mise en forme est nécessaire.

Code:

---

1 2	Memo1.Lines.Add(Format(': %s%d %s ', [Edit2.Text, i, edtPassword.Text])); Memo2.Lines.Add(Format(': %s %s %s%d %s', [Edit3.Text, Edit4.Text, Edit2.Text, i, edtPassword.Text]));

---

Bonjour Coolirc,

as tu résolu ton problème - si oui tu peux mettre le Tag "Résolu"

Par contre le code que tu as indiqué ne permet pas de gérer les 0 situés à gauche de ta valeur numérique ?

001 ... 010 ... 099 100 par exemple ( c'est ce que tu avais demandé au début ?)

le mien avec l'amélioration que propose AndNotOr le permet ?

A+

Charly