VAL |
Valeur |
---|---|
Delphi/Kylix/Lazarus | System |
Syntaxe
Procedure Val(ch:String; Var nbre;Var err:Integer); |
Paramètres
Nom | Description |
---|---|
ch | Ce paramètre permet d'indiquer la chaîne de caractères contenant le nombre encodé en alphanumérique. |
nbre | Ce paramètre retourner le nombre. |
err | Ce paramètre retourner l'erreur. |
Description
Cette procédure permet de convertir une chaîne de caractères en sa valeur numérique.
Remarques
- La procédure Val convertit une chaîne de caractères en une valeur numérique. Le paramètre nbre peut être un entier, Int64 ou une variable à virgule flottante. Si la conversion réussit, le paramètre err est égal à zéro. Sinon, la valeur de err est la position de la chaîne de caractères où Val a détecté pour la première fois une erreur de format. La procédure Val n'est pas une véritable procédure.
- Pour convertir une chaîne de caractères en nombre à virgule flottante, utilisez la fonction de conversion de chaîne de caractères dans l'unité SysUtils au lieu de Val. Le problème est que Val ne tient pas compte des paramètres locaux pour le séparateur décimal, ce qui rend la procédure inutile dans un contexte international.
Exemple
Voici quelques exemples typiques de l'utilisation de cette fonction :
- Program ValSamples;
-
- {$APPTYPE CONSOLE}
- Uses SysUtils;
-
- Var
- N,Err:Integer;
- R:Real;
-
- BEGIN
- Val('0',N,Err);
- WriteLn('Val(0) = ',N,', Erreur=',Err);
- Val('123',N,Err);
- WriteLn('Val(123) = ',N,', Erreur=',Err);
- Val('-123',N,Err);
- WriteLn('Val(-123) = ',N,', Erreur=',Err);
- Val('123E',N,Err);
- WriteLn('Val(123E) = ',N,', Erreur=',Err);
- Val('-123E',N,Err);
- WriteLn('Val(-123E) = ',N,', Erreur=',Err);
- Val('-123G',N,Err);
- WriteLn('Val(-123G) = ',N,', Erreur=',Err);
- Val('G',N,Err);
- WriteLn('Val(G) = ',N,', Erreur=',Err);
- Val('123.45',R,Err);
- WriteLn('Val(123.45) = ',R:3:2,', Erreur=',Err);
- END.
on obtiendra le résultat suivant :
Val(0) = 0, Erreur=0Val(123) = 123, Erreur=0
Val(-123) = -123, Erreur=0
Val(123E) = 123, Erreur=4
Val(-123E) = 123, Erreur=5
Val(-123G) = 123, Erreur=5
Val(G) = 0, Erreur=1
Val(123.45) = 123.45, Erreur=0
Voir également
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Chr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - IntToStr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Str
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - StrToInt
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - VAL
Langage de programmation - Turbo Pascal pour Windows - Référence de procédures et fonctions - VAL