Génération de Code ID Alphanumérique

**the watcher** · 27/08/2009, 12h27

Salut Les amis,
un petit souci
ce code me génère un numéro aléatoire de quatre chiffre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TFrmAdherent.CodeNumber(Sender: TObject);
begin
      Bouclecount:=0;
      NbBoucles:=StrToInt(EditNumber.Text);
      Edit1.Text:='';
        repeat
        Randomize;
        Chiflettre:=Random(2);
        Case Chiflettre of
    0:
        begin
        Randomize;
        Inc(Bouclecount);
        Defchiffre:=Random(10);
        Case Defchiffre of
          0:begin Edit1.Text:=Edit1.Text+'0';end;
          1:begin Edit1.Text:=Edit1.Text+'1';end;
          2:begin Edit1.Text:=Edit1.Text+'2';end;
          3:begin Edit1.Text:=Edit1.Text+'3';end;
          4:begin Edit1.Text:=Edit1.Text+'4';end;
          5:begin Edit1.Text:=Edit1.Text+'5';end;
          6:begin Edit1.Text:=Edit1.Text+'6';end;
          7:begin Edit1.Text:=Edit1.Text+'7';end;
          8:begin Edit1.Text:=Edit1.Text+'8';end;
          9:begin Edit1.Text:=Edit1.Text+'9';end;
        end;
      end;
    end;
until Bouclecount=NbBoucles;
end;

Je souhaite le modifier pour obtenir les quatre chiffres et une lettre comme ceci : 2103C ou 4988J ETC. HELP ME PLEASE

**ShaiLeTroll** · 27/08/2009, 12h38

sache tu peux simplifier

Code :

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

Edit1.Text := Edit1.Text+ StrToInt(Defchiffre);

ou

Code :

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

Edit1.Text := Edit1.Text+ Chr(Ord('0')+Defchiffre);

Pour des Lettres, fait un Ramdom sur 26 et un Ord('A') + ...

**Andnotor** · 27/08/2009, 13h25

N'appelle pas Randomize à chaque boucle. Seulement une fois, par exemple dans initialization.

Ensuite:

Code :

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

1
2
3
4
5
6
7
procedure TFrmAdherent.CodeNumber(Sender: TObject);
begin
  Edit1.Text := FormatFloat('0000', Random(9999)) +Chr(65 +Random(25));
end;
 
initialization
  Randomize;

**the watcher** · 27/08/2009, 14h17

En mettant

Code :

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

1
2
initialization;
Randomize;

à la fin de l'instruction, il génère une erreur d'instruction attendue.

**mick605** · 27/08/2009, 14h20

le ; apres initialization ne serait il pas de trop ?

**the watcher** · 27/08/2009, 14h31

Avec ou sans le ; on la même erreur. Mais je me demande s'il ne faut-il pas retirer ce bout de code car le prog fonctionne sans lui. Qu'en pensez-vous ?

**mick605** · 27/08/2009, 14h42

Non, si tu le retires, tu n'auras plus la partie Randomize. Tu auras un pseudo aléatoire. Teste : Ca va te sortir 4523J puis par exemple 4851K, 9562Z, 5214D. Tu quittes et tu redémarre : 4523J, 4851K, 9562Z, 5214D.

Attends je cherche mon tuto

Euh ... en fait je l'ai pas, dsl !! Mais bon, en faisant F1, ou en cherchant sur internet, ca devrait le faire (j'ai pas delphi sous la main)

**the watcher** · 27/08/2009, 15h00

dis mick605, en modifiant le code ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TFrmAdherent.CodeNumber(Sender: TObject);
begin
      Bouclecount:=0;
      NbBoucles:=StrToInt(EditNumber.Text);
      Edit1.Text:='';
        repeat
        Randomize;
        Chiflettre:=Random(2);
        begin
        Randomize;
        Inc(Bouclecount);
        Defchiffre:=Random(10);
        Edit1.Text := FormatFloat('0000', Random(9999)) +Chr(65 +Random(25));
         end;
until Bouclecount=NbBoucles;
end;

En fait je ne pas trop où place le initialization et puis j'ai l'impression qu'il ya un finalization quelque part .

**mick605** · 27/08/2009, 15h21

C'est pas tres propre ... Le but de la procedure Randomize, c'est justement d'etre appelée seulement une fois, mais la ...

C'est sur que ca marcherait, mais c'est pas beau !

Attends je cherche sur google ... gare a toi si je trouve

Haha ... Il faudrait pas un end apres la partie initialization ... surement (ca parait logique, en plus sous delphi, si je ne me trompe pas, ya des "traits" avec les '+' pour developper ou réduire les procedures. ca aurait pu te faire comprendre qu'il manque quelque chose a la fin ...)

**Andnotor** · 27/08/2009, 15h24

Dans une unité, tu peux avoir 4 blocs. Interface, implementation, initialization et finalization.

initialization est le bloc qui sera exécuté dés chargement de l'unité (depuis un uses du dpr ou d'une autre unité), avant que la fiche ne soit créée. Finialization est le dernier bloc exécuté quand l'unité est déchargée.

Aide sur Randomize:

Ne combinez pas l'appel à Randomize dans une boucle avec les appels à la fonction Random. Normalement, Randomize n'est appelée qu'une seule fois, avant tout appel à Random.

Ta boucle ne sert à rien à moins que tu veuilles mixer chiffres et lettres. Mais pour une structure fixe de 4 chiffres suivi d'une lettre, ma fonction suffit.

Initialization n'est pas à l'intérieur de la fonction. Place ce bloc tout en bas de l'unité juste avant end..

**mick605** · 27/08/2009, 16h14

Pourtant, d'apres ce qu'il a écrit, il l'a bien mis a la fin de son fichier, hors de sa fonction.

Ensuite, pour la fonction, utilise celle de AndoNotOr : courte et efficace

J'en profite pour corriger l'indentation de ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFrmAdherent.CodeNumber(Sender: TObject);
begin
  Bouclecount:=0;
  NbBoucles:=StrToInt(EditNumber.Text);
  Edit1.Text:='';
 
  repeat
    Randomize;
    Chiflettre:=Random(2);
    begin
      Randomize;
      Inc(Bouclecount);
      Defchiffre:=Random(10);
      Edit1.Text := FormatFloat('0000', Random(9999)) +Chr(65 +Random(25));
    end;
  until Bouclecount=NbBoucles;
 
end;

Mais utilise quand meme la fonction de AndNotOr

**Andnotor** · 27/08/2009, 16h22

Ben je ne vois pas où il a mis cette initialization

.

Et cette boucle repeat va simplement ecraser NbBoucles fois Edit1.Text, rien de plus

.

**mick605** · 27/08/2009, 16h44

Ouais je sais, mais c'était juste pour montrer l'indentation correcte

(NBoucles-1 fois)

**Andnotor** · 27/08/2009, 17h10

Non, NbBoucles

. Bouclecount est initialisé à 0. (et heureusement, sinon avec NbBoucles = 1, on part dans un loop infini. C'est toujours plus sûr de définir un test sur >=)

**mick605** · 27/08/2009, 20h22

Bien vu, bien vu ! Erreur de ma part !

**the watcher** · 28/08/2009, 20h39

Voici le code relooké :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFrmAdherent.NumberCodeExecute(Sender: TObject);
begin
         Edit1.Text := FormatFloat('0000', Random(9999)) +Chr(65 +Random(25));
end;
 
initialization;
Randomize;
 
end.

Qu'en pensez-vous ?

**mick605** · 28/08/2009, 22h37

Ouais, si ca marche, c'est bon (tu peux enlever le ";" apres initialization

)

Génération de Code ID Alphanumérique

Langage Delphi

Discussions similaires

Partager

Partager