cs_Kane
Messages postés8Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention12 juillet 2003
-
14 avril 2003 à 20:04
cs_Kane
Messages postés8Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention12 juillet 2003
-
15 avril 2003 à 15:10
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é.
Jean44
Messages postés26Date d'inscriptionmardi 25 février 2003StatutMembreDernière intervention27 juin 2003 15 avril 2003 à 13:57
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. :)