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

推荐分享