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 idhttp post 普通提交乱码处理

Delphi ado的事务处理例子

Delphi程序版本信息设置说明

Delphi从路径中分离文件名

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi 快捷键设置控件: thotkey

Delphi整理六（数据与记录）

Delphi 从给定字符串中截取n个字节的字符（解决汉字截取乱码问题）

Delphi post数据与对应的接收方式

Delphi tfont类型和json互相转换的函数

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

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