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;
![](https://img2024.cnblogs.com/blog/35695/202408/35695-20240826070647288-243310440.jpg)