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
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

cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
31
5 janv. 2003 à 23:48
J'ai deux suggestions à faire à ce code très utile :
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.