Detectar enteros y caracteres en un edit
 

Hola a todos,

Necesitaria poder detectar que en un mismo edit me escribieran números enteros y caracteres a la misma vez.
Tengo una ligera idea de como detectar, por ejemplo la vocal 'a', pero no logro realizar la combinación de caracter y númerico a la misma vez.

Adjunto el código para recorrer el edit y detectar 'a'.

Código Delphi [-]
 for index:=1 to length(contra) do
            begin                           
               if (contra[index]) = ('a') then
                  begin
                     vocal:=(vocal+1);
                  end;
             end;

Gracias a todos de nuevo

No se si te he entendido bien, pero si este es el caso, esto te podría ayudar a hacer lo que buscas:

Un saludo

Hola,

si solo quieres saber si tienen o no tienen lo puedes resolver asi:

Código Delphi [-]
function isInteger(Value: string): boolean;
begin
  Result := True;
  try
    StrToInt(Value)
  except
    Result := False
  end
end;

Gracias a todos por la ayuda, al final con un poco de cada uno lo he resuelto de la siguiente forma

Código Delphi [-]
 
   contra:=EdtNoupass.Text;
   car:=0;
   num:=0;

         for index:=1 to length(contra) do
            begin                           
               if (contra[index] in ['0'..'9']) then
                  inc(num)
               else if not (contra[index] in ['0'..'9']) then
                  inc(car)
            end;
     ShowMessage(Format('NUMEROS: %d ' + #13 + 'CARACTERS: %d ',[car, num]) );