判断ip地址合法

1：用正则表达式判断ip地址合法
uses
SysUtils, RegularExpressions;

function IsValidIPv4(const IP: string): Boolean;
var
Regex: TRegEx;
begin
// IPv4 地址的正则表达式
Regex := TRegEx.Create('^((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?).){3}(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$');
Result := Regex.IsMatch(IP);
end;

procedure Test;
var
IP: string;
begin
IP := '192.168.1.1';
if IsValidIPv4(IP) then
WriteLn(IP + ' 是一个合法的 IPv4 地址')
else
WriteLn(IP + ' 不是一个合法的 IPv4 地址');
end;

begin
Test;
end.
代码解释
正则表达式 ^((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?).){3}(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?) $用于匹配 I P v 4 地址。它确保每个段（用点分隔）在 0 到 255 的范围内。 I s V a l i d I P v 4 函数：接受一个字符串参数，检查该字符串是否符合 I P v 4 地址的格式。返回一个布尔值，指示该地址是否合法。 T e s t 过程：测试 I s V a l i d I P v 4 函数，打印结果。 I P v 6 地址合法性如果您还需要检查 I P v 6 地址的合法性，可以使用类似的方法，但正则表达式会更复杂。以下是一个简单的示例： f u n c t i o n I s V a l i d I P v 6 (c o n s t I P : s t r i n g) : B o o l e a n; v a r R e g e x : T R e g E x; b e g i n / / I P v 6 地址的正则表达式 R e g e x := T R e g E x . C r e a t e (^{' (} ([0 - 9 a - f A - F] 1, 4 😃 7, 7 [0 - 9 a - f A - F] 1, 4 |^{'} +^{'} ([0 - 9 a - f A - F] 1, 4 😃 1, 7 😐^{'} +^{'} ([0 - 9 a - f A - F] 1, 4 😃 1, 6 : [0 - 9 a - f A - F] 1, 4 |^{'} +^{'} ([0 - 9 a - f A - F] 1, 4 😃 1, 5 (: [0 - 9 a - f A - F] 1, 4) 1, 2 |^{'} +^{'} ([0 - 9 a - f A - F] 1, 4 😃 1, 4 (: [0 - 9 a - f A - F] 1, 4) 1, 3 |^{'} +^{'} ([0 - 9 a - f A - F] 1, 4 😃 1, 3 (: [0 - 9 a - f A - F] 1, 4) 1, 4 |^{'} +^{'} ([0 - 9 a - f A - F] 1, 4 😃 1, 2 (: [0 - 9 a - f A - F] 1, 4) 1, 5 |^{'} +^{'} [0 - 9 a - f A - F] 1, 4 😦 (: [0 - 9 a - f A - F] 1, 4) 1, 6) |^{'} +^{'} 😦 (: [0 - 9 a - f A - F] 1, 4) 1, 7 | :) |^{'} +^{'} f e 80 : (: [0 - 9 a - f A - F] 0, 4) {0, 4}^{'} :: (f f f f (: 0 1, 4) 0, 1 😃 {0, 1}^{'} +^{'} ((25 [0 - 5] | (2 [0 - 4] [0 - 9] | [01] ? [0 - 9] [0 - 9] ?)) .) 3^{'} +^{'} (25 [0 - 5] | (2 [0 - 4] [0 - 9] | [01] ? [0 - 9] [0 - 9] ?)) |^{'} +^{'} ([0 - 9 a - f A - F] 1, 4 😃 1, 4 😦 (25 [0 - 5] | (2 [0 - 4] [0 - 9] | [01] ? [0 - 9] [0 - 9] ?)) .) 3^{'} +^{'} (25 [0 - 5] | (2 [0 - 4] [0 - 9] | [01] ? [0 - 9] [0 - 9] ?))^{'} +^{'}))$ ');
Result := Regex.IsMatch(IP);
end;
通过这个方法，您可以轻松判断给定的 IP 地址是否合法。

2：判断ip地址合法不用正则表达式
uses
SysUtils;

function IsValidIPv4(const IP: string): Boolean;
var
Segments: TArray;
Segment: string;
I, Value: Integer;
begin
Result := False;

// 按照 '.' 分割 IP 地址
Segments := IP.Split(['.']);

// 检查是否有 4 个段
if Length(Segments) <> 4 then
Exit;

// 验证每个段
for I := 0 to 3 do
begin
Segment := Segments[I];

// 检查段是否为空或非数字
if (Segment = '') or not TryStrToInt(Segment, Value) then
  Exit;

// 检查值是否在 0 到 255 之间
if (Value < 0) or (Value > 255) then
  Exit;

end;

// 如果所有检查通过，则认为是合法的 IP 地址
Result := True;
end;

procedure Test;
var
IP: string;
begin
IP := '192.168.1.1';
if IsValidIPv4(IP) then
WriteLn(IP + ' 是一个合法的 IPv4 地址')
else
WriteLn(IP + ' 不是一个合法的 IPv4 地址');
end;

begin
Test;
end.
代码解释
分割 IP 地址：

使用 Split 方法将输入的 IP 地址按照 . 分割成多个段。
检查段数量：

确保分割后的段数量为 4，否则返回 False。
验证每个段：

遍历每个段，检查其是否为空，并且是否可以转换为整数。
检查每个段的值是否在 0 到 255 的范围内。
返回结果：

如果所有段都通过了验证，则返回 True，否则返回 False。
使用示例
在 Test 过程中的示例中，您可以更改 IP 变量的值来测试其他 IP 地址的合法性。此代码将输出相应的结果，指示给定的 IP 地址是否有效。