Pues hecha, lo que se dice hecha, no la tengo, pero tampoco lo veo demasiado difícil (a priori)
Básicamente seria recorrer con un bucle el string que contiene la IP
Código:
respuesta := true;
while i <= length(StrIP) do
e ir almacenando el valor en otro hasta encontrar los TRES puntos
Código:
if StrIP[i] <> '.' then // no es '.'
str := str + StrIP[i]
else // es punto -> comprobamos número
begin
if TryStrToInt(str, myInt) then
begin
if not (myInt in [0..255]) then
begin
ShowMessage('IP incorrecta');
Respuesta := false;
Break;
end;
end
else
begin
ShowMessage('IP incorrecta');
Respuesta := false;
Break;
end;
end;
y verificar fuera del bucle la última tupla de la misma manera y verificar el estado de la variable Respuesta
Bueno, espero que la idea te de pistas por donde ir