CARTE BANCAIRE
DelphiCool
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Membre
Dernière intervention
10 mars 2009
-
8 août 2002 à 21:38
mokhoss Messages postés 1 Date d'inscription dimanche 10 décembre 2006 Statut Membre Dernière intervention 10 décembre 2006 - 10 déc. 2006 à 16:02
mokhoss Messages postés 1 Date d'inscription dimanche 10 décembre 2006 Statut Membre Dernière intervention 10 décembre 2006 - 10 déc. 2006 à 16:02
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/12083-carte-bancaire
https://codes-sources.commentcamarche.net/source/12083-carte-bancaire
10 déc. 2006 à 16:02
Expliké moi svp un peut.
ciao
17 avril 2004 à 16:58
27 oct. 2002 à 11:40
Voila, ct pour dire sa :o)
8 août 2002 à 21:38
Bienvenue ;-)
8 août 2002 à 21:04
8 août 2002 à 14:48
NewNumber:='0';Total:='0';
if length(number)<>16 then goto Fin;
Result := False goto Fin;
peut-être remplacé par :
NewNumber:='0';
Total:='0';
Result := False;
if Length(Number) < 16 then
exit;
En effet, il est souhaitable d'initialiser le résultat d'une fonction dès le départ, au cas où tu oublierais de le faire par la suite.
Et ici, çà t'évite d'utiliser des GOTO qui sont la honte pour un programmeur Pascal ...