FORCER À ÉCRIRE EN MAJUSCULES DANS UN TEDIT
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
2 juil. 2004 à 12:48
zulot Messages postés 39 Date d'inscription dimanche 23 mai 2004 Statut Membre Dernière intervention 20 mai 2007 - 12 sept. 2004 à 23:26
zulot Messages postés 39 Date d'inscription dimanche 23 mai 2004 Statut Membre Dernière intervention 20 mai 2007 - 12 sept. 2004 à 23:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/24205-forcer-a-ecrire-en-majuscules-dans-un-tedit
https://codes-sources.commentcamarche.net/source/24205-forcer-a-ecrire-en-majuscules-dans-un-tedit
12 sept. 2004 à 23:26
5 juil. 2004 à 10:00
3 juil. 2004 à 15:32
Ca nous arrive à tous de "taper à côté de la plaque", les commentaires des membres sont là pour nous éclairer.
A part dans un TEdit (merci Mauricio pour "CharCase"), ton code (remanié) peut être utile.
Et puis de réinventer une fonction déjà existante dans Delphi (mais qu'on ne connaissait pas) est un excellent exercice de programmation.
T'en fais pas, on est pas mal de débutants, ici ;)
Ca doit pas empêcher de vérifier soigneusement son source avant de le poster >:(
Bonne prog' à toi, ne mollis pas !
2 juil. 2004 à 18:58
2 juil. 2004 à 18:56
Ton code if Key in ['a'..'z'] then est interessant pour ceux qui ne savent pas que l' on peut jouer avec les intervalles ...
On peut faire aussi Num in [26..57] qui est vari pour tous les chiffres entre 26 et 57!
2 juil. 2004 à 18:15
2 juil. 2004 à 16:19
Reste donc valable, sauf erreur ou omission (?) pour les TMemo et assimilés...
2 juil. 2004 à 14:43
C' est trop évident comme code! Bientôt, tu vas nous dire comment redimensionner une TForm.
Aller, je te donne un scoop:
Dans les TEdit tu as une propriété qui s' appelle 'CharCase',
choisi l' option ecUpperCase. Et voilà!
2 juil. 2004 à 12:55
il faut bien sûr supprimer l'instruction "if Key in ['a'..'z'] then" pour utiliser "Key := AnsiUpperCase(Key)[1];"
Ca va sans dire, mais enfin... ;)
2 juil. 2004 à 12:48
Intéressant, mais peut-être un peu "élémentaire" ?
A ce propos, essaye de saisir "élémentaire" dans l'Edit...
Une solution:
Key := AnsiUpperCase(Key)[1];
Tous les caractères acccentués (clavier étendu) seront ainsi pris en compte.