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

cs_alex75000 14 Messages postés lundi 9 mai 2005Date d'inscription 27 septembre 2007 Dernière intervention - 9 mai 2005 à 15:56 - Dernière réponse : cs_alex75000 14 Messages postés lundi 9 mai 2005Date d'inscription 27 septembre 2007 Dernière intervention
- 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
WhiteHippo 1270 Messages postés samedi 14 août 2004Date d'inscription 5 avril 2012 Dernière intervention - 9 mai 2005 à 19:05
3
Merci
Et en utilisant un TEditMask ?
Propriété editmask := ">L0L 0L0;1;_"

Cordialement.

Merci WhiteHippo 3

codes-sources a aidé 82 internautes ce mois-ci

Commenter la réponse de WhiteHippo
cs_alex75000 14 Messages postés lundi 9 mai 2005Date d'inscription 27 septembre 2007 Dernière intervention - 9 mai 2005 à 20:35
0
Merci
merci beaucoup, je vais tester ça! :D
Commenter la réponse de cs_alex75000
cs_alex75000 14 Messages postés lundi 9 mai 2005Date d'inscription 27 septembre 2007 Dernière intervention - 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
WhiteHippo 1270 Messages postés samedi 14 août 2004Date d'inscription 5 avril 2012 Dernière intervention - 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
cs_alex75000 14 Messages postés lundi 9 mai 2005Date d'inscription 27 septembre 2007 Dernière intervention - 11 mai 2005 à 22:50
0
Merci
oh!

ok, merci!! :D
Commenter la réponse de cs_alex75000
japee 1792 Messages postés vendredi 27 décembre 2002Date d'inscription 12 novembre 2016 Dernière intervention - 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.