VERIFICATION RIB AVEC MODULO 97

Messages postés
296
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
- - Dernière réponse : cs_eli42
Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
21 juillet 2019
- 22 juil. 2008 à 08:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/47367-verification-rib-avec-modulo-97

Afficher la suite 
Oniria
Messages postés
296
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
2 -
Bonjour,

J'ai juste un petit commentaire à faire : Que se passe - il si l'utilisateur n'écrit pas tous les champs dans le deuxième cas ? A mon avis, un joli plantage. Essaye d'utiliser try ... except ... end pour les strtoint.
Sinon, pas mal du tout.

Oniriabot
cs_eli42
Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
21 juillet 2019
-
Bien vu, faut dire que j'utilise la premiere formule, la deuxieme etait juste la pour faire comprendre mon case, la je dois partir j'ai pas le temps de corriger aujourd'hui pour ceux que ca interesse a la ligne 155 rajouter :

if Length(Compte) <> 23 Then
begin
BT2.Caption := 'Saisie Erroné';
Exit;
end;

Je mettrais le source a jour demain.