Discussion :

[mtxmotorax]

Bonjour je veut tester si la valeur saisie est une chaîne de caractère mais je ne me souviens plus de se qui faut mettre.

Code :

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

1
2
3
4
5
6
7
try
        unpays:=?(zs_pays.Text);
        unecapital:=?(zs_capital.Text);
        unemonnaie:=?(zs_monnaie.Text);  
      Except
        Application.MessageBox('Erreur de saisie veuillez recommencer', 'Erreur',MB_ICONERROR + MB_OK);
      end;

Merci de votre aide.

[Cl@udius]

Bonjour et bienvenue

Je suppose que zs_* sont des TEdit.
La propriété Text d'un TEdit renvoie un string, donc c'est par nature une chaine de caractères alphanumériques.

Faut-il se poser la question à l'envers ? C'est à dire: Est-ce que la valeur saisie est un nombre (ou une date) ?

@+ Claudius

[mtxmotorax]

d'accord donc je veut le tester pour vérifier si ce n'est pas un entier donc sa doit être un inttostr ou strtoint ? Je ne sait jamias comment les utiliser.

[Cl@udius]

... ça doit être un inttostr ou strtoint ?

Dans le cas présent StrToInt, puisque l'on souhaite transformer une chaine (Str) vers (To) un entier (Int).
Mais il faudra gérer l'exception levée si la conversion échoue.

Sinon voir TryStrToInt qui ne lève pas d'exception et renvoie True si la conversion à réussie (ou False dans le cas contraire).

[edit]
Ou alors, si le contexte s'adapte, c'est à dire si un TEdit ne doit recevoir que des caractères alphabétiques (ou numériques) voir l'événement OnKeyPress. (Tu as un exemple dans la FAQ et de multiples exemples sur le forum).

@+ Claudius.

[mtxmotorax]

quand je met:

Code :

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

1
2
3
4
5
6
7
try
        unpays:=StrToInt(zs_pays.Text);
        unecapital:=StrToInt(zs_capital.Text);
        unemonnaie:=StrToInt(zs_monnaie.Text);
 Except
        Application.MessageBox('Erreur de saisie veuillez recommencer', 'Erreur',MB_ICONERROR + MB_OK);
      end;

Je ne peut pas compiler car il y a une erreur "Type incompatible"

[Cl@udius]

Re,

Les variables UnPays, UneCapitale et UneMonnaie sont de quel type ?

[mtxmotorax]

C'est variables sont destinées à aller dans un tableau

Dans ma procédure elle sont déclaré comme cela:
unpays:mot30;
unecapital:mot30;
unemonnaie:mot30;


Et dans les type:
mot30=string[30];

[ShaiLeTroll]

Bonjour je veut tester si la valeur saisie est une chaîne de caractère mais je ne me souviens plus de se qui faut mettre.

d'accord donc je veut le tester pour vérifier si ce n'est pas un entier donc sa doit être un inttostr ou strtoint ? Je ne sait jamias comment les utiliser.

tu sais que tu es difficile à comprendre, tu penses tout à l'envers !
On teste le cas Normal, tout le reste est Erreur, c'est nettement plus simple !

Sinon, tu pousse un peu, tu veux affecter un entier à un string[30], c'est normal que cela ne fonctionne pas !
Faudrait maitriser un peu plus les bases du langage Delphi (et peut-être du Français)
Sinon un entier, c'est au plus string[11] (10 chiffre + signe) et un flottant string[20] (15-19 chiffre + signe)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  Dummy: Integer; // voir Double et TryStrToFloat si nombre à virgule !   
begin     
  if TryStrToInt(zs_pays.Text, Dummy) and TryStrToInt(zs_capital.Text, Dummy) and TryStrToInt(zs_monnaie.Text, Dummy) then
  begin
    unpays:=zs_pays.Text;
    unecapital:=zs_capital.Text;
    unemonnaie:=zs_monnaie.Text;
  end
  else
   MessageDlg('Erreur de saisie veuillez recommencer', mtError, [mbOk], 0);

MessageDlg c'est plus simple que Application.MessageBox

C'est pour un devoir scolaire ?

[mtxmotorax]

oui, vaut il mieux faire ce test avec un If ou un Try ?

[ShaiLeTroll]

StrToInt appelle TryStrToInt et déclenche une Exception si son retour est false !
Donc oui, un appel direct à TryStrToInt et un if est donc plus efficace, cela évite des opérations inutiles !

En général, il vaut mieux préférer un test des valeurs de retour et gérer les exceptions pour les erreurs imprévues (TimeOut, OutOfMemory) ou alors pour remonter une erreur dans une longue chaine d'appel de fonctions !