Discussion :

[the watcher]

à tous

J'aimerais limiter une saisie dans TEdit à sept cacactères de sorte à pourvour saisir d'abord six chiffres ensuite un lettre majuscule comme ceci : 256 898 Y (formatage compris). J'ai trouvé ce code

Code :

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

1
2
3
4
5
6
procedure TFrmAdherent.EditMatricKeyPress(Sender: TObject; var Key: Char);
begin
 
   if not (key in ['0'..'9',#8]) then key := #0;
 
end;

Mais ne fait pas trop mon affaire.
Quelqu'un peut-il m'aider ?

[ero-sennin]

Salut,

Le mieux à faire, selon moi, serait de prendre un TMaskEdit et de renseigner le champs EditMask avec cette valeur : !000 000 >L<;1;

Ainsi, ça devrait fonctionner comme tu le souhaites
A+

[the watcher]

En effet avec le maskedit c'est exactement ce que je souhaite mais ce qui me dérange est le mask de saisie (___ ___ _) qu'il présente. Est-ce possible de l'avoir sans ce masque ? Voila pourquoi l'idée du TEdit avec un formatage me semblait appropriée.

[ero-sennin]

Dans la propriété EditMask , en mode "Edition", tu as la possibilité de spécifier le caractère de "remplacement". Mets un espace, et le tour sera joué

[the watcher]

PARFAIT
MERCI ero-sennin