delphi 验证IP地址
//有点老旧了，就当是学习了
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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.087234973907471 seconds