Discussion :

[linda80]

Bonjour ;

Je voudrai savoir s'il existe une fonction pour tester si un nombre réel est un nombre correct, un peu comme la fonction "IsValidDate" , par exemple, cette fonction retournerait true si j'injecte 45,5, et false dans le cas où j'injecte 5,,2 ou ,5.

Merci d'avance.

[Tardiff Jean-François]

Bonjour,

Peut être chercher vous quelque chose comme ceci

Code :

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

1
2
3
4
5
 
Function IsEntier (Value: Extended): Boolean;
begin
  Result := Value = int(Value);
end;

[linda80]

Non, je ne cherche pas à convertir un réel en entier, je veux juste m'assurer que le réel qui a été tapé par l'utilisateur est un réel correct et pas quelque chose comme ceci : 2,,3 ou ,5

[rbh]

Salut
Il y a la fonction "TryStrToFloat(const S: string; out Value: Extended): Boolean;".

elle s'utilise comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  Value: Extended;
begin
  if TryStrToFloat(Edit1.Text, Value) then
    ShowMessage('la valeur est un réel')
  else
    ShowMessage('la valeur n''est pas un réel');
end;

PS : Par contre, pour moi : ",5" est une valeur correcte.

[linda80]

Merci à tous ceux qui ont essayé de m'aider, et surtout à rbh, ça marche avec la fonction TryStrToFloat.

ps : je crois bien que je vais considérer ,5 comme 0,5