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 }