function IsValidIP(strIP: string): Boolean;
var
i, PartCount {用多少段,以点号分开}: Integer;
Part: string;
begin
PartCount := 0;
while strIP <> '' do
begin
i := Pos('.', strIP);
if i = 0 then
begin
Part := strIP;
strIP := '';
end
else
begin
Part := Copy(strIP, 1, i - 1);
Delete(strIP, 1, i);
end;
//IP分段必须是[0,255]的整数
if not TryStrToInt(Part, i) or (i < 0) or (i > 255) then
begin
Result := False;
Exit;
end;
Inc(PartCount);
end;
Result := PartCount = 4; //必须要有4段
end;
var
i, PartCount {用多少段,以点号分开}: Integer;
Part: string;
begin
PartCount := 0;
while strIP <> '' do
begin
i := Pos('.', strIP);
if i = 0 then
begin
Part := strIP;
strIP := '';
end
else
begin
Part := Copy(strIP, 1, i - 1);
Delete(strIP, 1, i);
end;
//IP分段必须是[0,255]的整数
if not TryStrToInt(Part, i) or (i < 0) or (i > 255) then
begin
Result := False;
Exit;
end;
Inc(PartCount);
end;
Result := PartCount = 4; //必须要有4段
end;