Savoir si chaine est num ou alpha

Résolu
Signaler
Messages postés
121
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
13 avril 2010
-
Messages postés
121
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
13 avril 2010
-
Hello tout le monde !

Je voudrais savoir si il y a un moyen de savoir si une chaine de caracteres ne contient uniquement que des caracteres alphabétiques ou numérique et ce sans passer par IntToStr ou StrToInt. Par exemple :

Machaine = 'ABC'; // détecter que ce sont bien des caracteres alphabétiques
Machaine2 = '123'; // détecter que ce sont bien des caracteres numériques
Machaine3 = 'A23'; // détecter la présence de la mixité des caracteres

Merci de vous réponse

$$$$$$$$----Padsou----$$$$$$$$

2 réponses

Messages postés
449
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
8 avril 2009
2
Function TypeOfMyString(var Chaine:string):integer;
var L, i,c :integer
begin
Result:=0; // que des lettres
c:=0;
L:=Length(Chaine);

for i:=1 to L do
if Chaine[i] in ['0'..'9'] // si on trouve un chiffre, on
then Inc(c); // incrémente

If c > 0 then Result:=2; // au moins un caractère num.,
// chaine hybride pour l'instant

If c = L then Result:=1; // tts les caractères sont num.
// => chaine num
end;

gnh !
Messages postés
121
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
13 avril 2010

Merci beaucoup !

$$$$$$$$----Padsou----$$$$$$$$