Savoir si chaine est num ou alphaRésolu

Question

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&#233;tiques ou num&#233;rique et ce sans passer par IntToStr ou StrToInt. Par exemple :

Machaine = 'ABC'; // d&#233;tecter que ce sont bien des caracteres alphab&#233;tiques
Machaine2 = '123'; // d&#233;tecter que ce sont bien des caracteres num&#233;riques
Machaine3 = 'A23'; // d&#233;tecter la pr&#233;sence de la mixit&#233; des caracteres

Merci de vous r&#233;ponse 

$$$$$$$$----Padsou----$$$$$$$$

DeltaFX · Accepted Answer

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&#233;mente

   If c > 0 then Result:=2; // au moins un caract&#232;re num.,
                            // chaine hybride pour l'instant

   If c = L then Result:=1; // tts les caract&#232;res sont num. 
                            // => chaine num
end;

gnh !

padsou · Answer

Merci beaucoup ! 

$$$$$$$$----Padsou----$$$$$$$$

Savoir si chaine est num ou alpha

2 réponses

Votre réponse

Discussions similaires