Test de plusieurs caractères

Bonjour,

Je voudrais tester si certains caractères d'une chaîne de caractères sont corrects.

J'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8

if( Length(Edit1.Text) = 29 and Edit1.Text[6] = '-' and Edit1.Text[12] = '-' and Edit1.Text[18] = '-' and Edit1.Text[24] = '-' ) then

---

Mais ça ne fonctionne pas...

J'ai le message d'erreur suivant :

Citation:

---

Error: Incompatible types: got "Char" expected "LongInt"

---

Sur cette ligne :

Code:

---

Edit1.Text[6] = '-' and

---

Savez-vous comment je dois effectuer mon test ?

Merci,
ZiP

Bonjour !

Et comme ceci ?

Code:

---

1 2 3 4 5 6 7

if (Length(Edit1.Text) = 29) and (Edit1.Text[6] = '-') and (Edit1.Text[12] = '-') and (Edit1.Text[18] = '-') and (Edit1.Text[24] = '-') then

---

Bonjour,

Ça fonctionne tout de suite mieux ;)

Merci,
ZiP

Bonjour,

M'étonnerait que (Edit1.Text[12] = '-') ça marche à tous les coups en UTF8 si tous les caractères ne sont pas de l'ASCII ?

André

Bonjour,
pourquoi n'utilises-tu pas un TMaskEdit. Ta saisie de texte ressemble à une saisie de numéro de licence ou de série.

Amicalement, nullosse