Discussion :

[zimamouche1]

j'ai un edit pour la saisie des notes des étudiants

je utilise la fonction strtofloat(edit1.text);

le probléme c'est que:si l'utilisateur saisie un text non valide
par exemple '12,5a'

comment je faire pour fournis a l'utilisateur un message

showmessage('attention la note est non valide');

voici le procedure

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
var
r:real;
begin
if (Edit1.Text='') then
begin
showmessage('Attention! la note est vide'); 
end;
 
r:=StrToFloat(Edit1.text);
if ((r>20)or(r<0)) then
begin
showmessage('Attention! la note est supperieur a 20'); 
end;
 
end;
 
end.

mersi d'avance

[dehorter olivier]

Bonjour


Pensez à utiliser les exceptions

Code :

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

1
2
3
TRY
EXCEPT
END

en particulier ici :

r:=StrToFloat(Edit1.text);
if ((r>20)or(r<0)) then
begin
showmessage('Attention! la note est supperieur a 20');
end;

qui si la note n'est pas correct (ex :12.5a), le StrToFloat envoi un exception

Code :

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

1
2
3
4
5
6
7
8
9
10
 
TRY
   r:=StrToFloat(Edit1.text);
   if ((r>20)or(r<0)) then
   begin
      showmessage('Attention! la note est supperieur a 20');
   end;
EXCEPT
      showmessage('La note est incorrect');
END;

Mais il existe aussi des composants qui permettent d'utiliser que des caractères numériques (dans les JEDI je crois pour les gratuits)

[mick605]

Salut

Dans ce cas précis, il est plus performant d'utiliser directement la fonction TryStrToFloat() qui renvoie un booléen suivant si le texte rentré est valide.

Quand utiliser des exceptions

Les exceptions offrent un moyen élégant d'intercepter les erreurs d'exécution sans arrêter le programme et sans utiliser d'encombrantes instructions conditionnelles. Les exigences imposées par la sémantique de la gestion des exceptions se traduisent par une pénalisation au niveau de la taille du code ou des données et au niveau des performances à l'exécution. Il est possible de déclencher des exceptions pour presque toutes les raisons et de protéger pratiquement n'importe quel bloc de code en l'intégrant dans une instruction try...except ou try...finally, mais, en pratique, il vaut mieux réserver ces outils à des situations particulières.

Bonne chance

[DOLPat®]

jle probléme c'est que:si l'utilisateur saisie un text non valide
par exemple '12,5a'

Il est déjà possible d'ignorer les touches autres que les chiffres et la virgule:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm9.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    #1..#30, '0'..'9':;
    ',':
      if Pos(',', Edit1.Text) > 0 then
        Key := #0; // Une virgule est déjà présente... On ignore une seconde
  else
    Key:=#0;
  end;
end;

Ensuite on récupère la valeur:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm9.Edit1Change(Sender: TObject);
begin
  try
    Valeur:=StrToFloat(Edit1.Text);
  except
    Valeur:=0;
  end;
end;

[dehorter olivier]

un petit bémol, à la place de la virgule j'utiliserais le caractère décimal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm9.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    #1..#30, '0'..'9':;
    DecimalSeparator:
      if Pos(DecimalSeparator, Edit1.Text) > 0 then
        Key := #0; // Une virgule est déjà présente... On ignore une seconde
  else
    Key:=#0;
  end;
end;

[mick605]

un petit bémol, à la place de la virgule j'utiliserais le caractère décimal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm9.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    #1..#30, '0'..'9':;
    DecimalSeparator:
      if Pos(DecimalSeparator, Edit1.Text) > 0 then
        Key := #0; // Une virgule est déjà présente... On ignore une seconde
  else
    Key:=#0;
  end;
end;

Sauf que ton code ne compile pas ... Dans un case of, seulement des constantes sont attendues ! Voila comment il faudrait faire, je pense :

Code :

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

1
2
3
4
5
6
7
8
9
10
  case key of
    #1..#30, '0'..'9':;
    ',','.' : if Pos(DecimalSeparator, Edit1.Text) > 0 then
                Key := #0 // Une virgule est déjà présente... On ignore une seconde
              else
                Key:=DecimalSeparator;
 
  else
    Key:=#0;
  end;

[Rayek]

Une version plus complète dans la

[edam]

pourquoi cassé la tête? normalement tu insère les données dans une base, alors les composants BD font l'affaire, + un mask d’édition,

[Charly910]

Bonjour Edam,

tout le monde ne fait pas de la base de données ... il y a aussi les programmes scientifiques, et aussi par exemple la saisie des paramètres d'une appli (dimensions des fenêtres, épaisseurs des traits, ...)

les méthodes proposées ici et dans la FAQ sont donc très utiles (un maskEdit peut aussi effectivement être utile)

@+ Charly