Buscar número en cadena

[torito]

Saludos amigos foreros, me encuentro en un dilema, tengo una cadena y en esa cadena quiero saber si existen números o es solo de carácteres, no me gustaría usar un ciclo y quiero saber si en delphi ya existe esa función...
muchas gracias

[jachguate]

podes intentar convertirlo a un número, y si la conversión falla, asumir que hay algun otro caracter...

  try
    StrToInt(cadena);
  except
    on EConvertError do
      NumeroInvalido := True;
  end;

Hasta luego.

[delphi.com.ar]

Podes usar LastDelimiter, pero internamente no deja de hacer un ciclo:

if LastDelimiter('0123456789', sCadena) > 0 Then
  ShowMessage('Tiene Números');

[delphi.com.ar]

Empezado por jachguate

podes intentar convertirlo a un número, y si la conversión falla, asumir que hay algun otro caracter...[/code]

Con la respuesta de jachguate me haces dudar... Si quieres saber si es un número válido, puedes utilizar algo como esto:

function IsInteger(Valor : String) : Boolean;
var 
  iRes, iErr : Integer;
begin
  Val(Valor, iRes, iErr);
  Result := iErr = 0;
end;

function IsNumber(Value: string): Boolean;
var 
  fRes: Extended;
begin
  Result := TextToFloat(PChar(Value), fRes, fvExtended);
end;

Esto evitará que se produzca una excepción, si quieres saber si la cadena contiene algún número, sin importar si es solo un número, puedes usar la solución que te pase en el hilo anterior.

Saludos!

[torito]

A mi también me agrado mas la segunda respuesta, en si la primera no me resolveria mi problema, muchas gracias