cs_eli42
Messages postés143Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention11 juillet 20231 22 juil. 2008 à 08:36
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.
Oniria
Messages postés292Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention18 décembre 20143 22 juil. 2008 à 07:13
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.
22 juil. 2008 à 08:36
if Length(Compte) <> 23 Then
begin
BT2.Caption := 'Saisie Erroné';
Exit;
end;
Je mettrais le source a jour demain.
22 juil. 2008 à 07:13
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