Discussion :

[[ZiP]]

Bonjour,

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

J'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

Sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit1.Text[6] = '-' and

Savez-vous comment je dois effectuer mon test ?

Merci,
ZiP

[Roland Chastain]

Bonjour !

Et comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[[ZiP]]

Bonjour,

Ça fonctionne tout de suite mieux

Merci,
ZiP

[alanglet]

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é

[Nullosse]

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