本文整理自网络,侵删。
//有点老旧了,就当是学习了
function IsIPaddr(IP: string): Boolean;var Node: array[0..3] of Integer; tIP: string; tNode: string; tPos: Integer; tLen: Integer;begin Result := False; tIP := IP; tLen := Length(tIP); tPos := Pos('.', tIP); tNode := MidStr(tIP, 1, tPos - 1); tIP := MidStr(tIP, tPos + 1, tLen - tPos); if not TryStrToInt(tNode, Node[0]) then Exit;
tLen := Length(tIP); tPos := Pos('.', tIP); tNode := MidStr(tIP, 1, tPos - 1); tIP := MidStr(tIP, tPos + 1, tLen - tPos); if not TryStrToInt(tNode, Node[1]) then Exit;
tLen := Length(tIP); tPos := Pos('.', tIP); tNode := MidStr(tIP, 1, tPos - 1); tIP := MidStr(tIP, tPos + 1, tLen - tPos); if not TryStrToInt(tNode, Node[2]) then Exit;
if not TryStrToInt(tIP, Node[3]) then Exit; for tLen := Low(Node) to High(Node) do begin if (Node[tLen] < 0) or (Node[tLen] > 255) then Exit; end; Result := True;end;
相关阅读 >>
Delphi实现使用tidhttp控件向https地址post请求
Delphi lastdelimiter:在字符串中查找选定的字符最后出现的位置
Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段?
更多相关阅读请进入《Delphi》频道 >>