一个网络IP段扫描的想法，请大家帮我出出主意！

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 s : String ;
 tempStr ,Temp_s: String ;
 i:Integer ;
begin
  s := edit1.text ;
  tempStr := '';
  for I := length(s) downto 1 do
  begin
   if s[i] = '.' then
   begin
     temp_s := copy (s,1,i);
     break ;
   end ;
   tempStr := s[i]+tempstr ;
  end ;
  try
  i := strtoint(tempstr);
  except
  end ;
  if i = 255 then
  begin
  //处理
  end ;
  edit1.Text := temp_s +inttostr(i+1);end;
这样可以！也可以用其他办法：
edit1中让用户输入网段：如：‘192.168.2‘就可以了
edit2中输入开始的ip：如：1
edit3中输入结束的ip：如：3
这样你不是更好吗？

Answer 1

但是C++中好象可以先inet_addr(ipstart);
然后ntohl(ipstart),接着可以直接INC（IPSTART）；
我想DELPHI也应该可以吧，因为这是WINSOCK里面的网络字节和主机字节的转换的问题，我想DELPHI也应该是这样的吧