Validation d'un Code Postal(format Canadien) en Delphi Objet

Résolu
cs_alex75000
Messages postés
14
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
27 septembre 2007
- 9 mai 2005 à 15:56
cs_alex75000
Messages postés
14
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
27 septembre 2007
- 11 mai 2005 à 22:50
Bonjour,

je cherche une fonction(ou Procédure) de Validation permettant de valider un Code Postal de Format H1H 1H1, je n'arrive pas à faire en sorte que la première fois, on cherche une lettre, la 2ième fois un chiffre et ainsi de suite...(le Code Postal est entré dans un champ Edit, évidemment)

Merci à l'avance.

Alex

6 réponses

WhiteHippo
Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
2
9 mai 2005 à 19:05
Et en utilisant un TEditMask ?
Propriété editmask := ">L0L 0L0;1;_"

Cordialement.
3
cs_alex75000
Messages postés
14
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
27 septembre 2007

9 mai 2005 à 20:35
merci beaucoup, je vais tester ça! :D
0
cs_alex75000
Messages postés
14
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
27 septembre 2007

11 mai 2005 à 20:04
Y-a-t il un moyen pour que les lettres entrées soit automatiquement en Majuscule(qu'importe si l'usager les entre en minuscule ou Majuscule???) en utilisant le MaskEdit
0
WhiteHippo
Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
2
11 mai 2005 à 21:46
oui c'est le > de ">L0L 0L0;1;_"
qui force les caractères majuscules.

Cordialement.
0

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

Posez votre question
cs_alex75000
Messages postés
14
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
27 septembre 2007

11 mai 2005 à 22:50
oh!

ok, merci!! :D
0
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
9 mai 2005 à 18:32
Tu veux vérifier la validité au moment de la saisie, je suppose ?



Je n'ai pas trop le temps de tester mon code, mais comme ça vite fait, ça devrait donner quelque chose comme ça :



function IsValid(S: TObject; K: Char): Char;

var Position: Byte; // sur modèle: H1H 1H1

begin

Result := #0;

Position := Length(TEdit(S).Text) +1;

if Position > 7 then Exit;

if K in #13 then

begin

Result := K;

Exit;

end;

case Position of

1, 3, 6: if K in ['A'..'Z', 'a'..'z'] then Result := K;

2, 5, 7: if K in ['0'..'9'] then Result := K;

4: if K = ' ' then Result := K;

end;

end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

Key := IsValid(Sender, Key);

end;



Bonne prog'
-2