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 获取unixtime

Delphi tms web core 在线pdf教程

Delphi格式化wmi中的datetime

Delphixe7关于android 检测屏幕是否处于关闭状态

Delphi里的compile和build都能产生可执行文件，有什么区别啊？

Delphi xe5 android平台 调用 webservice

Delphi word转pdf两种方法

Delphi speedbutton按钮动态加载图片（从image和imagelist）

Delphi 动态生成进度条窗体

Delphi 解析json生成json

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

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