Discussion :

[jojo.]

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

[didier.cabale]

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

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.

[jojo.]

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

[jojo.]

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 :

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

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;

[denokan]

moi j'aurai plutot fait un truc du genre :

Code :

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

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));

[anapurna]

salut


dans le formcreate :

Code :

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

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

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
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

[jojo.]

Merci je vais essayer

[Bloon]

Une solution plus générique :

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
 
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 :

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

unCode := genCode('a000000a');

Bloon