Discussion :

[tchouk]

Comment dois-je faire pour faire apparaitre le showmessage quand je met dans un inputbox un integer alors que seul les strings sont acceptés, sachant que plusieurs inputbox se succède?

Merci d'avance.

[Philippe Gormand]

Bonjour.

Transformer le type Integer en String.

Code :

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

1
2
3
4
5
6
7
 
Var
    Chn   : String;
    Valeur : Integer;
 
begin
     Chn := IntToStr(Valeur);

Il faut consulter l'aide de DELPHI.

[Alyx²]

Ca donne qqch du genre:

Code :

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

1
2
3
4
5
6
 
rep: integer ;
Message: string ;
Entier: integer ;
 
rep = StrToInt (InputBox(Message+' '+IntToStr(Entier)) ;

Et aussi: ne pas oublier de vérifier au préalable que l'utilisateur a bien rentré un entier dans l'inputbox.

[balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[OutOfRange]

Bonjour
S'il s'agit de tester la chaîne saisie dans l'inputbox, qui ne doit accepter qu'un "string", ça me paraît difficile, vu que inputbox renvoie toujours un string, même en cas de saisie de chiffres
Il faut faire le test sur la chaîne, pour contrôler que les caractères indésirables n'y figurent pas
Mais j'ai p'trêtre mal compris la question
Bonne prog

[edam]

pour control ,2 méthode
1 avec val (voir l'aide en ligne)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
uses Dialogs;
var 
  I, Code: Integer;
begin
  { Lecture du texte à partir du contrôle TEdit }
  Val(Edit1.Text, I, Code);
  { Erreur pendant la conversion en entier? }
  if Code <> 0 then
    MessageDlg('Erreur en position: ' + IntToStr(Code), mtWarning, [mbOk], 0, mbOk);
  else
    Canvas.TextOut(10, 10, 'Valeur = ' + IntToStr(I));
end;

2- avec try except +inttostr

Code :

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

1
2
3
4
5
6
 
     try
       vale:=strtoint(Mots);
     except
       vale:=0;
     end;

[slimjoe]

J'ajoute mon grain de sel

Code :

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

1
2
3
4
5
6
7
 
var 
  i: integer
begin
  if not TryStrToInt(Chaine, i) then
    Showmessage('Ceci n''est pas un nombre');
end;