function GetSubStrCount(sSubStr, sParentStr: string): integer; begin Result := 0; while Pos(UpperCase(sSubStr), UpperCase(sParentStr)) <> 0 do begin sParentStr := Copy(sParentStr, Pos(sSubStr, sParentStr) + 1, Length(sParentStr)); Result := Result + 1; end; end; function IsIp(ip:string):boolean; begin if (GetSubStrCount('.', IP) = 3) and (Longword(inet_addr(PAnsiChar(AnsiString(IP)))) <> INADDR_NONE) then Result := True else Result := False; end;
delphi, to determine the legality of the IP address entered
Guess you like
Origin www.cnblogs.com/AkumaIII/p/12131408.html
Recommended
Ranking