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.