delphi 根据ip段生成所有IP地址

uses  winsock ,System.Math;

procedure TForm1.FormCreate(Sender: TObject);

  var

  ip, ip1, ip2: Cardinal;

  addr: in_addr;

  dottedAddr: string;

begin

ip1 := ntohl(inet_addr(pansichar('127.0.1.1')));

ip2 := ntohl(inet_addr(pansichar('127.0.2.255')));

for ip := min(ip1,ip2) to max(ip1,ip2) do

begin

addr.S_addr := htonl(ip);

dottedAddr := inet_ntoa(addr);

memo1.Lines.Add(dottedAddr);

end;

end;