判断指定IP格式是否有效

jzj_jony

于 2006-07-11 00:29:00 发布

阅读量1.2k

点赞数

分类专栏：资料收集文章标签： integer string function 互联网

资料收集专栏收录该内容

23 篇文章

订阅专栏

判断指定IP格式是否有效

声明:此函数来自互联网，版权归作者所有。

function IsTrueIP(Ip: string): Boolean;
const
Z = ['0'..'9', '.'];
var
I, J, P: Integer;
W: string;
begin
Result := False;
if (Length(Ip) > 15) or (Ip[1] = '.') then Exit;
I := 1;
J := 0;
P := 0;
W := '';
repeat
    if (Ip[I] in Z) and (J < 4) then
    begin
      if Ip[I] = '.' then
      begin
        Inc(P);
        J := 0;
        try
          StrToInt(Ip[I + 1]);
        except
          Exit;
        end;
        W := '';
      end
      else
      begin
        W := W + Ip[I];
        if (StrToInt(W) > 255) or (Length(W) > 3) then Exit;
        Inc(J);
      end;
    end
    else
      Exit;
    Inc(I);
until I > Length(Ip);
if P < 3 then Exit;
Result := True;
end;