Discussion :

[Tree81]

Bonjour,

Voilà je fais une application pour vérifier le numéro de sécu, et j'aimerai savoir si vous saviez comment coder cette phrase :

//verifie que le quatrieme et cinquieme caractère sont compris entre 01 et 12
je pensai partir de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 // verifie que le premier caractère est 1,2 , 7 ou 8
if (copy(_sNoSecu,1,1) = '1') or (copy(_sNoSecu,1,1) = '2')  or (copy(_sNoSecu,1,1) = '7')  or (copy(_sNoSecu,1,1) = '8') then

mais je pense qu'un encadrement serait plus simple, seulement j'ai du mal à le concevoir en langage pascal. Comment dire que le 4eeme et 5eme caractere ne forme qu'un chiffre?

merci

[Rayek]

Fait rapidement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Var
  SCode : String;
  iCode : integer;
begin
  // on concatène le 4em et 5em caractères
  sCode := Copy(_sNoSecu,4,1) + Copy(_sNoSecu,5,1) ;
  // On le transforme en entier (si erreur on met -1)
  iCode := StrToIntDef(sCode,-1);
  // On vérifie que le code est différent de -1 et est bien compris entre 1 et 12
  if ((iCode <> -1) and (iCode in [1..12])) then
  begin
    // action !!!
  end;
end;

[Tree81]

Je te remercie pour ta réponse.
Est ce obligé de mettre l'étape -1? A quoi sert elle vraiment?

[ShaiLeTroll]

Consulte l'aide de StrToIntDef : "Si S ne représente pas un nombre valide, StrToIntDef renvoie Default. "

J'aurais plutôt écrit pour Premier Caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if (Length(_sNoSecu) >= 1) and (_sNoSecu[1] in ['1', '2', '7', '8']) then

[Tree81]

Copy(_sNoSecu,4,1) a pour signification le parametre, la place du caractère et le 3ème signifie?

[ShaiLeTroll]

Lit La DOCUMENTATION Copy !!!

Pour le 4 et 5 !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  if StrToIntDef(Copy(_sNoSecu, 4, 2), -1) in [1..12] then
  begin
    // action !!!
  end;

[Tree81]

D'accord , merci pour l'aide

[Tree81]

Toujours aussi aimable mais merci!