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 ?