VERIFICATION RIB AVEC MODULO 97

Signaler
Messages postés
292
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
-
Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
16 juin 2020
-
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

Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
16 juin 2020

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.
Messages postés
292
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