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 :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.
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;
Comment le modifier pour obtenir le nombre que je souhaite obtenir ?
Partager