Discussion :

[the watcher]

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 :

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

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 ?

[Droïde Système7]

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

@+

[ouiouioui]

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

[the watcher]

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

[Droïde Système7]

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

[the watcher]

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.