Discussion :

[RenaudM]

Bonjour,

J'ai un soucis avec la fonction val.
J'ai de nombreux endroits où je dois déterminer si une chaine de caractère est un nombre ou une vrai chaine, et si c'est un nombre, je dois la convertir.
J'utilisais donc jusqu'à présent la fonction Val().

Exemple

Code :

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

1
2
3
4
5
Val(Chaine, Entier, Erreur);
if Erreur = 0 then
  //Traitement de la valeur "entier"
else
 //Traitement de la valeur "chaine"

Le problème est qu'un des utilisateurs vient d'utiliser une chaine nommée "XC" et que la fonction Val me renvoie 0 comme code erreur et 12 dans le variable "entier".
Après recherche, je me suis rendu compte que "X" est le préfixe pour les nombres hexadécimaux. Et que du coup, il considère "XC" comme la valeur 12 en hexadécimal.
J'ai 2000 endroits où la fonction Val est appelée...
Plutôt que de redéfinir une nouvelle fonction Val et de le changer partout, n'y aurait-il pas un moyen de désactiver le préfixe Hexa dans la fonction Val ?
Par exemple avec une directive de compilation ?

Merci d'avance pour vos réponses.

[tourlourou]

Une possibilité pourrait être de redéfinir localement une procédure Val de même prototype, capable de faire le test et appel si besoin à l'originale :

Code :

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

1
2
3
4
5
6
7
procedure Val(Chaine: string; Entier, Erreur: integer);
begin
  if (length(Chaine)>0)
  and (UpKey(Chaine[1])='X')
  then Erreur:=-1 // par exemple
  else System.Val(Chaine, Entier, Erreur); // si dans l'unité System
end;

[RenaudM]

Merci, j'y avais pensé, mais malheureusement, mes appels à la fonction val sont disséminés dans des centaines de fichiers. Cela m'obligerait à redéfinir localement la fonction dans chacun des fichiers. (Je travaille sur un source de quasiment 1 millions de lignes...).
Merci quand même.

[ShaiLeTroll]

Val, c'est un peu brutale !
Depuis D5\D6, il y avait les variantes comme TryStrToInt ou TryStrToFloat
Cela aurait été plus élégant de créer une fonction IsNumeric ou IsAlpha, juste pour simplifier la lecture du code, tu aurais ainsi éviter ce désagrément aujourd'hui !

TryStrToInt utilise x, 0x, 0X et $ aussi en plus de X
Hors TryStrToInt est une simple encapsulation de Val()
Cela va faire beaucoup de cas à gérer !

[RenaudM]

Merci.
Bon, ben je suis bon pour me faire une fonction Val non hexa qui teste avant et à faire un remplacement partout...