Delphi 检查IP地址合法性

本文整理自网络，侵删。

 
function IsValidIP(Str: string): Boolean; // 检查IP地址合法性
var
  i, PartCount { 用多少段,以点号分开 } : Integer;
  Part: string;
begin
  PartCount := 0;
  while Str <> '' do
  begin
    i := Pos('.', Str);
    if i = 0 then
    begin
      Part := Str;
      Str := '';
    end
    else
    begin
      Part := Copy(Str, 1, i - 1);
      Delete(Str, 1, i);
    end;
    // IP分段必须是[0,255]的整数?
    if not TryStrToInt(Part, i) or (i < 0) or (i > 255) then
    begin
      Result := False;
      Exit;
    end;
    Inc(PartCount);
  end;
  Result := PartCount = 4; // 必须要有4段
end;


用法：
if IsValidIP(Edit1.Text) = False then
    Showmessage('IP地址不合法，请重新输入！')
  else
 

相关阅读 >>

Delphi如何删除数据库重复记录(4种方法)

Delphi 很方便调用的log日志方法

Delphi firedac获取自增长字段值

Delphi idftp

Delphi 关于使用access中带参数的查询的用法

Delphi下的纯pascal的十六进制转十进制

Delphi 完美的线程注入和卸载

Delphi xe 新功能试用：多种皮肤样式静、动态设置方法

Delphi 2009 之 tstringbuilder 类[6]: equals

Delphi webbrowser1 缩放网页

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 检查IP地址合法性