Générer un code unique

Version imprimable

Bonjour les amis,
Dans le cadre de la mis en place d'un programme qui fonctionnera en réseau, j'ai récupérer ce bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.Button1Click(Sender: TObject); var Guid: TGuid; Password: string; begin //Création d'un identificateur unique CreateGuid(Guid); //Transformation en une chaine Password := GuidToString(Guid); //retire les accolades à chaque bout Edit1.Text := Copy(Password, 2, Length(Password)-2); end;
afin de générer un code unique à chaque enregistrement. L'ennui est qu'il génère un code de 32 caractères alors que moi j'en veux que 6.
Comment le modifier pour obtenir le nombre que je souhaite obtenir ?

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button3Click(Sender: TObject);
var
  Guid: TGuid;
  Password: string;
begin
  //Création d'un identificateur unique
  CreateGuid(Guid);
  //Transformation en une chaine
  Password := GuidToString(Guid);
  //retire les accolades à chaque bout
  Edit1.Text := Copy(Password, 2, Length(Password)-2);
 
  // la fonction Copy() est ton amie
  PassWord := Copy(PassWord, 2, 6);
  ShowMessage(PassWord);
end;

20/12/2009, 16h21
ouiouioui

oui mais du coup si on coupe le guid il peut y avoir des doublon je crois je suis pas expert:?
20/12/2009, 17h13
the watcher

Citation:

Envoyé par ouiouioui

oui mais du coup si on coupe le guid il peut y avoir des doublon je crois je suis pas expert:?

JUSTE ! L'intérêt du guid est d'éviter au maxi les doublons
20/12/2009, 17h23
Droïde Système7

Ben alors, pourquoi ne souhaiter qu'un "morceau de 6" ?
20/12/2009, 18h19
the watcher

Citation:

Envoyé par Droïde Système7

Ben alors, pourquoi ne souhaiter qu'un "morceau de 6" ?

Le code que j'ai trouvé me génère un code de 32 caractères . C'EST TROP POUR MON UTILISATION. Au pire des cas je peux accepter 8.
20/12/2009, 18h25
Droïde Système7

Mais peut-être que le problème est mal posé...

Que te manque t-il alors comme réponses complémentaires ?

Car avec le principe du code ci-dessus, tu peux prendre autant de caractères que tu souhaites, non ?
20/12/2009, 19h00
archonte

Pourquoi ne pas ajouter un random ;) pour déterminer la longueur du code (6-7-8 caractères) mais également la position du premier caractère au sein de la chaine de 32 caractères générée par le GUID ?

c'est pour générer des mots de passe ?!

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
function GenerateCode(const aLength: integer): string;
var n,c1,c2 : integer;
    c : char;
{$j+}
const
  CCC : array[0..57] of char =
    'cdefghjk234mnpqrstuvwxyz56789CDEFGHJK234MNPQRSTUVWXYZ56789';
{$J-}
  Max = high(CCC);
begin
  for n := 0 to Max do
  begin
    c1 := random(Max+1);
    c2 := random(Max+1);
 
    while c2 = c1 do
      c2 := random(Max+1);
 
    c       := CCC[c1];
    CCC[c1] := CCC[c2];
    CCC[c2] := c;
  end;
 
  setlength(result, aLength);
  for n := 1 to aLength do
  begin
    c := CCC[random(Max+1)];
 
    while pos(C, result) <> 0 do
      c := CCC[random(Max+1)];
 
    result[n] := c;
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  (Sender as TButton).Caption := GenerateCode(8);
end;
 
initialization
  Randomize;
 
end.