Ver Mensaje Individual
  #1  
Antiguo 10-02-2009
noob noob is offline
Miembro
 
Registrado: sep 2008
Posts: 212
Reputación: 16
noob Va por buen camino
Expresión regular para validar dirección IP

Hola, estoy utilizando las funciones de la librería RegExp Studio para realizar validaciones mediante expresiones regulares, tengo esta expresión regular para validar una dirección IP:

Código Delphi [-]
function TForm1.IPIncorrecta(Cadena: string): boolean;
var
  ExpresionRegular: TRegExpr;
begin
  Result := True;
  ExpresionRegular := TRegExpr.Create;
  ExpresionRegular.Expression := '^([1-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])(\.([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])){3}$';
  if ExpresionRegular.Exec(Cadena) then
    Result := False;
end;

pero con ciertos valores, como por ejemplo, 192.168.0.11 me genera la siguiente excepción:

Project raised exception class 'ERegExpr' with message:
TRegExpr(exec): Loop Without LoopEntry !

He revisado mi expresión regular y parece que todo está correcto. ¿Qué es lo que ocurre?

Saludos.

Última edición por noob fecha: 10-02-2009 a las 15:28:57.
Responder Con Cita