Verificar se uma string possui apenas letras

Question

Ol� pessoal!Sou nova aqui e na programa��o!To precisando de uma ajudinha.Estou varrendo o text de um edit e tenho que verificar se em certa parte o usu�rio digitou apenas letras.Ex:123-akpPreciso veri...

Joaoshi · Answer

Colega, voc� poderia criar uma fun��o para resolver o problema.

Um exemplo (n�o testei):

Function  SoLetra(Texto: String):Boolean;
var Resultado:Boolean;
    nContador:Integer;
begin

  Resultado := true;

  For nContador:=1 to Length(Texto) do
    begin
      {Verifica s� � uma letra}  
      if Texto[nContador] in [�a�..�z�,�A�..�Z�] then
      else
         Resultado := false;   
    end;

    Result:=Resultado;
end;

Espero ter ajudado.

Tamiriss · Answer

Ajudou sim!Fiz dessa forma mesmo!T� funcionando direitinho!Nunca tinha visto esse [�a�..�z�] n�oE ele s� aceita char n�, como minha variavel n�o � char usei Str[1], deu certinho!Brigad�o...

Mazzi · Answer

Soh pra constar , pra quem necessitar:-------SOMENTE NUMEROS-----------------function RemoveChar(Const Texto:String):String;//// Remove caracteres de uma string deixando apenas numeros//varI: integer;S: string;beginS := ��;for I := 1 To Length(Texto) Dobeginif (Texto in [�0�..�9�]) thenbeginS := S + Copy(Texto, I, 1);end;end;result := S;end;-------SOMENTE LETRAS-----------------function RemoveNumeros(Const Texto:String):String;//// Remove numeros de uma string deixando apenas letras//varI: integer;S: string;beginS := ��;for I := 1 To Length(Texto) Dobeginif (Texto in [�A�..�Z�])or (Texto =� �) or (Texto =�.�) thenbeginS := S + Copy(Texto, I, 1);end;end;result := S;end;...

F�rum Verificar se uma string possui apenas letras #358053