本文整理自网络,侵删。
检查输入的IP地址串是否合法
uses WinSock;
function IsLegalIP(IP: String): Boolean;
begin
if(Longword(inet_addr(pchar(IP)))=INADDR_NONE) then Result := false
else Result := true;
end;
相关阅读 >>
Delphi ifileoperation替换shfileoperation
Delphi中通过tclientsocket获取公网(wan)ip地址
Delphi lastdelimiter:在字符串中查找选定的字符最后出现的位置
更多相关阅读请进入《Delphi》频道 >>