FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Buscar número en cadena
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 |
#2
|
||||
|
||||
podes intentar convertirlo a un número, y si la conversión falla, asumir que hay algun otro caracter...
Código:
try StrToInt(cadena); except on EConvertError do NumeroInvalido := True; end;
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#3
|
||||
|
||||
Podes usar LastDelimiter, pero internamente no deja de hacer un ciclo:
Código:
if LastDelimiter('0123456789', sCadena) > 0 Then ShowMessage('Tiene Números');
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#4
|
||||
|
||||
Cita:
Código:
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; Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
||||
|
||||
A mi también me agrado mas la segunda respuesta, en si la primera no me resolveria mi problema, muchas gracias
|
|
|
|