如何根据不同的IP而得到范围

Question

比方说本机IP为:192.168.1.100
我想通过获取这个IP,并得到
范围：192.168.1.1  -----192.168.1.255
我现在问题是不知本机IP是多少，但是并得如下范围
192.168.0.1-------192.168.0.255
192.168.1.1-------192.168.1.255 
192.168.188.1-----192.168.188.288
10.1.1.1-------10.1.1.255

Answer 1

就是不在IP的情况下而获取IP的范围》》》》》》》》》

Answer 2

可用的函数很多，例如用pos和copy函数就可以做到。不懂你说的“在已知IP的情况是可行的，....”要表达的是什么意思。

Answer 3

procedure XXX(IP: string);
var
  S: string;
begin
  Showmessage('IP是'+IP);
  S := ReverseString(Copy(ReverseString(IP),Pos('.',ReverseString(IP)),MaxInt));
  Showmessage('IP段是'+S);
  Showmessage('范围是'+S+'0-----'+S+'255');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  XXX('192.168.0.100');
  XXX('192.168.1.100');
  XXX('192.168.1.188.100');
  XXX('10.1.1.100');
end;