Validation d'un Code Postal(format Canadien) en Delphi Objet [Résolu]

Messages postés
14
Date d'inscription
lundi 9 mai 2005
Dernière intervention
27 septembre 2007
- 9 mai 2005 à 15:56 - Dernière réponse :
Messages postés
14
Date d'inscription
lundi 9 mai 2005
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
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
1270
Date d'inscription
samedi 14 août 2004
Dernière intervention
5 avril 2012
- 9 mai 2005 à 19:05
3
Merci
Et en utilisant un TEditMask ?
Propriété editmask := ">L0L 0L0;1;_"

Cordialement.

Merci WhiteHippo 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de WhiteHippo
Messages postés
14
Date d'inscription
lundi 9 mai 2005
Dernière intervention
27 septembre 2007
- 9 mai 2005 à 20:35
0
Merci
merci beaucoup, je vais tester ça! :D
Commenter la réponse de cs_alex75000
Messages postés
14
Date d'inscription
lundi 9 mai 2005
Dernière intervention
27 septembre 2007
- 11 mai 2005 à 20:04
0
Merci
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
Commenter la réponse de cs_alex75000
Messages postés
1270
Date d'inscription
samedi 14 août 2004
Dernière intervention
5 avril 2012
- 11 mai 2005 à 21:46
0
Merci
oui c'est le > de ">L0L 0L0;1;_"
qui force les caractères majuscules.

Cordialement.
Commenter la réponse de WhiteHippo
Messages postés
14
Date d'inscription
lundi 9 mai 2005
Dernière intervention
27 septembre 2007
- 11 mai 2005 à 22:50
0
Merci
oh!

ok, merci!! :D
Commenter la réponse de cs_alex75000
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
- 9 mai 2005 à 18:32
-2
Merci
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'
Commenter la réponse de japee

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.