Générer une clé alphanumérique

Bonjour à tous,

je cherche comment générer une clé alphanumérique.
J'ai une table clients avec CLICOD  et CLINOM.
Quand je saisi le nom dans un edit (ou dbedit je ne sais pas encore) j'aimerais arriver à générer une clé du type:

Saisi nom TOTO ALAIN
Clé générée: TOTOAL0008

C'est à dire prendre les 6 premiers caractères du nom et  4 chiffres s'affichant dès la saisie de la première lettre du nom.
Ces 4 chiffres s'incrémentant en fonction des 6 premier caractères existant

Par exemple:
S'il existe déja TOTOAL0008 le suivant devra être TOTOAL0009

J'espère avoir été assez clair.

Si quelqu'un peut me dépanner.

D'avance merci.

Bien cordialement

Codial

UserCode := UpperCase(copy(Nom, 1, Max(4, Length(Nom))) + copy(Prenom, 1, Max(2,Length(Prenom))); { = TOTO+AL }

>> requette SQL : 'SELECT * WHERE Code LIKE  `'+UserCode+'%`'; { Chercher tout les TOTOAL* }
>> lire Count de la requete (nombre d'element trouvé ?)

ElemCount := { sqltruc.RowCount } + 1;
UserCode := format(UserCode+'%.4d',[ElemCount]); { = TOTOAL+000n }

---

Bonjour,

merci pour cette réponse rapide.

Je teste mais j'ai un soucis avec la fonction max, elle n'exista pas en Delphi.

Cordialement

Bonsoir,

j'ai créer les functions Min et Max. En fait c'est la fonction Min qu'il faut utiliser pour mon besoin.
Ceci dit il faudrait que j'arrive à gérer les espaces car le nom et le prénom sont saisie dans le même Edit.

TOTO ALAIN doit égaler TOTOAL
Tu sais faire?

Cordialement

Je supprimerai le blanc et du coup le reste est simple :

procedure TForm1.Button1Click(Sender: TObject);
var
Str, Extr : string;
begin
 Str := 'TOTO ALAIN';
 Extr := copy(AnsiReplaceStr(Str, ' ',''),1,6);
 ShowMessage(Extr);
end;

Pour la numérotation, je créerai un champ incrémental automatique comme çà on évacue, le souci du + 1..
et ensuite, il suffit de faire un champ calculé (non stocké)

cantador

Bonjour,

merci pour cette réponse, mais pourrais tu expliciter cette partie:

"Pour la numérotation, je créerai un champ incrémental automatique comme çà on évacue, le souci du + 1..
et ensuite, il suffit de faire un champ calculé (non stocké)"

D'avance merci

Cordialement

 

Bonjour,

Autre chose:

{ DM.TBQuery1.RowCount } ne renvoie rien?

Je me trompe?
Cordialement

Un champ auto-incrémental se crée dans une table..
(je suppose que tu utilises BDE + paradox..)

Ta concanétation:
  doit d'afficher à l'écran dans un Edit (et non un DBEdit)
Edit1.text := Extr + IntToStr(ChampIncr));
pour connaître le nombre d'enregistrements renvoyés par une requête stockée dans un TQuery :
Query1.RecordCount

Bien sûr, il y a d'autres possibilités...

cantador

Bonjour,

Extr := copy(AnsiReplaceStr(Str, ' ',''),1,6);

Sur cette ligne j'ai un message d'erreur sur "
Caractère incorrect dans le fichier d'entrée:""($22)

Cordialement

 

je teste tous mes codes avant de les poster :

Copy(AnsiReplaceStr(Str, ' ',''),1,6);
Sous D7.

N'oublie pas le StrUtils dans les uses...

Si tu as encore un souci, merci de posterTOUTle code.

cantador