Discussion :

[gtaman]

bonjour,

je cherche à vérifier, si ce que l'utilisateur rentre est bien ce dont le programme a besoin. Je m'explique, l'utilisateur doit rentrer une instruction du type "TIRE 3". de là, j'extrait "TIRE", et "3" dans deux variables (action : string,l'autre nombrefois : integer).

Mon probleme est le suivant, si l'utilisateur tape "TRE 3", un message d'erreur doit s'afficher, ça jusque là je sais comment faire, par contre s'il rentre "TIRE T3" ou "TIRE GTE", une message d'erreur doit s'afficher. Comment faire pour dire que si distance n'est pas un entier, faire afficher un message ?

Merci d'avance à tous.

Si je vous comprenez pas tout, dites le, j'essaierai de faire plus clair !

PS : j'espère avoir mis le message dans la bonne section, veuillez m'excuser si ce n'est pas le cas, je suis nouveau


EDIT : merci de voir mon dernier message!

[pitango]

Voici une possibilité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function saisie:Boolean;
var distance: integer;
begin
  result:=False;
  try
    distance := StrToInt(inputbox('Boite de saisie', 'Distance ?', '0'));
    result:=true;
  except
    MessageDlg('Valeur incorrecte', mtError, [mbOK], 0);
  end;
end;

A+

[gtaman]

merci, je vais voir avec ça !

[gtaman]

voila ce que j'ai fais

try
distance:=strtoint(distance_str);

except
write('Erreur sur la distance')
end;


mais ça marche pas, j'ai toujours le message barbare de delphi "Project nom.exe raised exception class EConvertError with message "t20" is not valid integer value'.Process stopped. Use Step or Run to continue.

Comment faire pour que ce message s'affiche pas ? Ou est mon erreur dans le try...except...end;

[pitango]

Si je place le code suivant derrière un bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
distance:Integer;
distance_str:string;
begin
  try
    distance_str:='T1'; // KO
//    distance_str:='1'; // Pour le test OK
    distance := strtoint(distance_str);
  except
    ShowMessage('Erreur sur la distance')
  end;
end;

Je n'ai pas de problème. Peut cela vient de ton write ?

A+

[gtaman]

j'avais mis un show avant et ça marché pas non plus, faut pas utiliser un "uses" spécial ?

j'ai pris ton programme pour le tester chez moivoici le prog entier,

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
16
17
18
19
20
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Dialogs;
 
var
distance:Integer;
distance_str:string;
begin
  try
    distance_str:='T1'; // KO
//    distance_str:='1'; // Pour le test OK
    distance := strtoint(distance_str);
  except
    ShowMessage('Erreur sur la distance')
  end;
end.

ça me fais toujours le message d'erreur "Project .... raised exception class EConvertError with message "T1" is not .....