Vérifier le premier caractère d'un TEdit

Résolu
ArC3Nik Messages postés 21 Date d'inscription lundi 5 juillet 2004 Statut Membre Dernière intervention 9 février 2010 - 4 févr. 2008 à 11:15
ArC3Nik Messages postés 21 Date d'inscription lundi 5 juillet 2004 Statut Membre Dernière intervention 9 février 2010 - 4 févr. 2008 à 19:30
Bonjour
J'ai une question toute simple, je voudrais vérifier dans un champs texte (TEdit) si le premier caractère correspond bien a un caractère voulu.
Par exemple je veut que ma condition soi vraie si mon premier caractère de mon champ et un S.

Si quelqu'un peut me donner un petit coup de main ^^

Merci

5 réponses

fbalien Messages postés 251 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 11 novembre 2016
4 févr. 2008 à 11:30
Bonjour

Hum y a pas eu grosse recherche là :(
Edit1.Text[1] renvoie le premier caractère

CDT
ArC3Nik Messages postés 21 Date d'inscription lundi 5 juillet 2004 Statut Membre Dernière intervention 9 février 2010
4 févr. 2008 à 12:41
Si il y a une grosse recherche, j'été parti si le fait de compter le nombre de caractere puis faire un decompte jusqu'a tomber sur le caractere voulu, enfin une machine a gaz... A trop chercher défois on perd son chemin ^^

Merci pour la soluce
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 34
4 févr. 2008 à 18:57
Edit1.Text[1] est bon sauf si le Edit1 est vide.

alternative :

if Pos(Edit1.Text, 'S') = 1 then ... ok ...
if Pos(Edit1.Text, 'S) <> 1 then ... pas ok ...

<hr size="2" width="100%" />
http://deefaze.gnomz.com
HAFTARIFOUAD Messages postés 256 Date d'inscription mercredi 5 septembre 2007 Statut Membre Dernière intervention 6 janvier 2011
4 févr. 2008 à 19:19
Salut tt le monde ;-)

j'ai une petite idée à vous proposer

if copy(Edit1.Text,1,1) = 'S' then ShowMessage('Vrai');

haftari.fouad

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ArC3Nik Messages postés 21 Date d'inscription lundi 5 juillet 2004 Statut Membre Dernière intervention 9 février 2010
4 févr. 2008 à 19:30
Merci pour vos réponse je vais essayer tout ça demain au boulot :)

Merci encore pour ces réponse aussi rapide
Rejoignez-nous