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 用nethttpclient执行post操作遇到的问题

Delphi nativeexcel获取excel所有列

Delphi dbgrid 表格自适应宽度

Delphi listview 排序功能

Delphi获取文件大小

Delphi　病毒

Delphi中利用中断获得系统启动以来的时间

Delphi 7 中dbgrid的排序

Delphi将目录删除到回收站中

Delphi xe增强的rtti妙用－－动态创建包中的窗口类

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

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