Fonction isnumeric

Signaler
Messages postés
8
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
12 juillet 2003
-
Messages postés
8
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
12 juillet 2003
-
Existe t'il une implantation de cette fonction vb sur delphi ?

car moi je fais un bon vieux val(s,b,e)

mais a chaque fois le compilo me rappel que ma varriable b n'est pas utilisé.

PS: je ne ve pas utilisé le try except

Merci

3 réponses

Messages postés
833
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
1
Je pense (je dis bien je pense !) que tu peux utiliser "not IsNAN(chiffre)"

IsNAN teste si le chiffre passé en paramètre est une valeur non numérique... Donc le contraire jouera le rôle de ta foncion IsNumeric !

Bonne prog' !
[mailto:bestiol@cario.fr Bestiol.]
Messages postés
26
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
27 juin 2003

Salut,

Cette petite fonction devrait répondre à ton besoin...

Function IsNumeric( S : String) :boolean;
Var
 i : Integer;
Begin
  Result := True;
  For i := 1 to Length( S) do
  Begin
    if not (S[i] in ['0'..'9']) then
    begin
      Result := False;
      Exit;
    end;
  End;
End;


NB : Si ton appli doit traiter les nombres réels, n'oublie pas
de rajouter le séparateur décimal dans le test. :)
Messages postés
8
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
12 juillet 2003

Merci bcp !!

je n'y avait pas pensé !!