SAISIE SEMI-AUTOMATIQUE
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
5 janv. 2003 à 23:48
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 5 janv. 2003 à 23:48
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 5 janv. 2003 à 23:48
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/12273-saisie-semi-automatique
https://codes-sources.commentcamarche.net/source/12273-saisie-semi-automatique
5 janv. 2003 à 23:48
1/- Au lieu d'utiliser "if Key <> 8", utiliser les Virtual Key codes à la place, c'est plus lisible : "if Key <> VK_BACK "
2/- Améliorer le test d'égalité des chaines pour ne pas être sensible à la casse, en mettant les deux chaines comparées en minuscule, ce qui permet de ne pas perdre les caractères accentués :
If LowerCase(Copy(a,1, length(d))) = LowerCase(Copy(d,1, length(d)))
Félicitations et merci pour ce petit bout de code qui nous rendra de fiers services, j'en suis sûr.