Générateur de code

Version imprimable

21/04/2006, 10h35
jojo.

Générateur de code

Bonjour, je voudrais créer un générateur de code (lorque j'appui sur un button1) qui me générerait des code de l'ordre de 2lettres et 6chiffres (dans un Edit1).
Je voudrais que les 2 lettres soient à l'extrémité du code et que les 6 chiffres soient entre.
Ce qui donnerait: a000000a.

Dans mon OnFormCreate() je dois ajouter une ligne "Rendomize" pour initialiser le générateur.
Je penses qu'il faut que j'utilise la function Gencode.

Le problème c'est que je ne sais pas comment m'y prendre

Merci d'avance
21/04/2006, 10h54
didier.cabale

vois l'aide de Delphi sur les fonctions "Random [ ( Range: Integer) ]" et "Chr(X: Byte)". Tu devrais y arriver avec çà.

Citation:

Je penses qu'il faut que j'utilise la function Gencode.

Quelle version de Delphi utilises-tu? PS: Penses à le préciser sur tes prochains messages.
21/04/2006, 10h56
jojo.

Merci je vais y jeter un oeil.
J'utilise Delphi 7

Je penses que ce que je proposes juste mais le problème que je rencontre est le suivant:
J'ai réussi à faire une variable pour I (Integer) mais je n'arrives pas à faire celle pour Result.
Merci de me dire à quoi est égal Result pour la variable.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 uses Math; function GenCode: string; var I: Integer; begin SetLength(Result, 8); [FONT=Courier New]Result[/FONT][1] := Chr(RandomRange(Ord('A'), Ord('Z') + 1)); Result[8] := Chr(RandomRange(Ord('A'), Ord('Z') + 1)); for I := 2 to 7 do Result[i] := Chr(RandomRange(Ord('0'), Ord('9') + 1)); end;

moi j'aurai plutot fait un truc du genre :

Code:

1
2
3
4
5
6
7
8
9
 
Result := Chr(65 + Random(26)) +
          Chr(48 + Random(10)) +
          Chr(48 + Random(10)) +
          Chr(48 + Random(10)) +
          Chr(48 + Random(10)) +
          Chr(48 + Random(10)) +
          Chr(48 + Random(10)) +
          Chr(65 + Random(26));

salut

dans le formcreate :

Code:

Randomize; // Réinitialisation de la suite pseudo-aléatoire

Code:

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
Const
    TabCarNum = '0123456789';
    TabCarMin = 'abcdefghijklmnopqrstuvwxyz';
 
Function GenCode: string;
var
I,ii : Integer;
s : String;
l  : integer;
begin
  Result := '';
  s:=  TabCarMin;   
  l := Length(S);
  i := Round(Random(l+1));
  Result[1] := S[i];
   i := Round(Random(l+1));
  Result[8] := S[i];
 
   s:=  TabCarNum;   
    l := Length(S);
    for ii := 2 to 7 do
   begin 
      i := Round(Random(l+1));
      Result[ii] :=S[i] 
   end;
end;

@+ Phil

24/04/2006, 21h38
jojo.

Merci je vais essayer

Une solution plus générique :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
function genCode(masque : string) : string;
var
  i, n : integer;
begin
  n := length(masque);
  result := stringofchar(' ', n);
  for i := 1 to n do
    // le masque est un a, on génère une lettre
    if (masque[i] = 'a') then
      result[i] := chr(65 + random(26))
    // le masque est un 0, on génère un chiffre
    else if (masque[i] = '0') then
      result[i] := chr(48 + random(10))
    // sinon erreur
    else
      raise Exception.create('Caractère [' + masque[i] + '] invalide dans le masque');
end;

Pour ton cas :

Code:

unCode := genCode('a000000a');

Bloon

26/04/2006, 13h00
jojo.

Ok merci j'ai essayé la dernière solution et elle fonctionne bien.
Merci
26/04/2006, 13h58
jojo.

par contre j'ai un problème, après avoir tapé le code je ne peux pas l'éxecuter car il y a des erreurs.
A la fin il faut retapé begin et un instruction mais je ne sais pas laquelle.
Merci
26/04/2006, 14h13
Bloon

Quel est ton code et quels sont les messages d'erreurs ?

Bloon

Voila mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 function genCode(masque : string) : string;
var
  i, n : integer;
begin
  n := length(masque);
  result := stringofchar(' ', n);
  for i := 1 to n do
    // le masque est un a, on génère une lettre
    if (masque[i] = 'a') then
      result[i] := chr(65 + random(26))
    // le masque est un 0, on génère un chiffre
    else if (masque[i] = '0') then
      result[i] := chr(48 + random(10))
    // sinon erreur
    else
      raise Exception.create('Caractère [' + masque[i] + '] invalide dans le masque');
end;

Mon message d'erreur est:
Expression attendu mais end. trouvé.
End. trouvé mais begin attendu.

La fonction doit se trouver dans une unité, le code minimum est donc :

Code:

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
unit Unit2;
 
interface
 
  function genCode(masque : string) : string;
 
implementation
 
uses
  SysUtils;
 
function genCode(masque : string) : string;
var
  i, n : integer;
begin
  n := length(masque);
  result := stringofchar(' ', n);
  for i := 1 to n do
    // le masque est un a, on génère une lettre
    if (masque[i] = 'a') then
      result[i] := chr(65 + random(26))
    // le masque est un 0, on génère un chiffre
    else if (masque[i] = '0') then
      result[i] := chr(48 + random(10))
    // sinon erreur
    else
      raise Exception.create('Caractère [' + masque[i] + '] invalide dans le masque');
end;
 
end.

Bloon

Bonjour,
J'ai essayé pendant plusieurs heures de créer le générateur à partir du codes:
Code:

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 31 unit Unit2; interface function genCode(masque : string) : string; implementation uses SysUtils; function genCode(masque : string) : string; var i, n : integer; begin n := length(masque); result := stringofchar(' ', n); for i := 1 to n do // le masque est un a, on génère une lettre if (masque[i] = 'a') then result[i] := chr(65 + random(26)) // le masque est un 0, on génère un chiffre else if (masque[i] = '0') then result[i] := chr(48 + random(10)) // sinon erreur else raise Exception.create('Caractère [' + masque[i] + '] invalide dans le masque'); end; end
mais je n'arrive pas à le créer. Si quelqu'un arrive à le faire merci de m'envoyer le fichier delphi sur mon adresse mail:
jonat100@msn.com

26/04/2006, 17h59
denokan

1. pense à la balise CODE (le # en haut) on pourra relire ton code

2. pour créer le générateur, dans ton projet delphi, tu cliques sur Fichier -> Nouveau -> Unité
et tu efface tout le contenu de la nouvelle unité et tu copie-colle le code Bloon à la place.

ensuite dans ta form où tu veux utiliser le Générateur, tu rajoutes Unit2 dans les uses et c'est ok:P
26/04/2006, 18h29
jojo.

Salut, merci beaucoup à tous mon générateur fonctionne.
13/05/2006, 16h17
jojo.

Est t-il possible d'appliquer ce générateur à un Edit.
Je m'explique: Sur ma form j'ai une Edit1 et un button(Enabled:=False;).
Lorsque je tape un code correct dans l'edit le button est en enabled:=True; Je voudrais savoir s'il était possible que le générateur trouve tous seule le code qui doit être marqué dans l'edit.