Discussion :

[braecking]

, juste une petite question sur la fonction StringtoInt et Trim: j'ai essayé ces deux fonctions mais je bloque un peu pour y arrriver

Ma prof ma conseillé d'utiliser la fonction "StringtoInt" pour ce bout de code. En gros l'utilisateur doit absolument entrer un nombre de 5 chiffres ( Subject[a].SubRefCode : string) mais quand je tape par exemple le chiffre 12, le programme accepte le chiffre, je suppose que c'est un probleme de string integer

Code :

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

1
2
3
4
5
6
7
8
        Write (' Enter the subject reference code (must be 5 digits): ');
        Readln (Subject[a].SubRefCode);
        While not ((Subject[a].SubRefCode > '10000') and (Subject[a].SubRefCode < '99999')) do
         begin
          Writeln (' Wrong number, please try again');
          Write (' Enter the subject reference code (must be 5 digits): ');
          Readln (Subject[a].SubRefCode);
         end;

Si vous pouviez me dire comment ecrire cette fonction et la mettre dans dans ce ptit bout de code, it would be great


La deuxieme fonction que je dois utilisé, c'est la fonction Strim, apparamment pour les problemes de nombre d'espaces. Pour cette fonction je ne sais vraiement pas comment faire parce que je n'en avait jamais entendu parler avant (un ptit exemple ne serait pas de refus )

Si vous pouviez m'éclairer un peu sur ces deux points, ce serait bien

merci

fx

[philnext]

Trim enlève les caractères 'non imprimables' aux extremités des strings.

Code :

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

1
2
3
 
sTemp:= '   toto     ';
sTemp := trim(sTemp); // ici sTemp doit être égal à 'toto'

[philnext]

Pour ton autre pb, les opérateurs de comparaisons sont plus intuitifs avec des nombres. DOnc la plus simple est de transformer ta saisie en Integer avant la comparaison.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Write (' Enter the subject reference code (must be 5 digits): ');
        Readln (Subject[a].SubRefCode);
        iTemp := IntToStr(Subject[a].SubRefCode);
        While not (iTemp > 10000) and (Subject[a].SubRefCode < 99999)) do
         begin
          Writeln (' Wrong number, please try again');
          Write (' Enter the subject reference code (must be 5 digits): ');
          Readln (Subject[a].SubRefCode);
          iTemp := IntToStr(Subject[a].SubRefCode);
         end;

Penses à gérer le cas où ce qui est entré n'est pas un entier (ex : saisie de 'toto')

[pinson]

Autre solution :

Tu vérifies que c'est un integer comme ça

Code :

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

1
2
3
4
5
6
7
 
  try
    StrToInt(maChaine);
  except
    on E : Exception do
      Showmessage('Ce n''est pas un entier');
  end;

Puis tu regarde la longueur de ta chaine :

Code :

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

1
2
3
4
5
 
  if Length(maChaine) = 5 then
    //ton traitement si tout est OK
  else
   //ton traitement si pas OK

[slimjoe]

Autre solution :

Tu vérifies que c'est un integer comme ça

Code :

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

1
2
3
4
5
6
7
 
  try
    StrToInt(maChaine);
  except
    on E : Exception do
      Showmessage('Ce n''est pas un entier');
  end;

Puis tu regarde la longueur de ta chaine :

Code :

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

1
2
3
4
5
 
  if Length(maChaine) = 5 then
    //ton traitement si tout est OK
  else
   //ton traitement si pas OK

Ton code est parfait pinson mais laisse moi quand même ajouter mon grain de sel .

J'ai me bien le TryStrToInt pour la lisibilité (et je crois qu'il est un tantinet plus performant qu'un try/except) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  iMonEntier;
 
begin
if TryStrToInt(maChaine, iMonEntier) then
  if Length(maChaine) = 5 then
    //ton traitement si tout est OK
  else
   //ton traitement si pas OK
else
  Showmessage('Ce n''est pas un entier');
end;

Mais c'est juste mon opinion après tout (et TryStrToInt n'est probablement pas disponible dans toutes les versions de Delphi)

[pinson]

@Slimjoe -> Merci je ne connaissais pas cette fonction.

Dans ce cas, c'est pas mal aussi.

[braecking]

ok merci des conseilles

fx