192.168.0.1
...
192.168.0.255
192.168.1.1
...
192.168.1.255从IP地址192.168.0.1到192.168.1.255之间的IP地址要怎么生成哪位能提供一个这样的算法
...
192.168.0.255
192.168.1.1
...
192.168.1.255从IP地址192.168.0.1到192.168.1.255之间的IP地址要怎么生成哪位能提供一个这样的算法
解决方案 »
- Date型变量和Time型变量怎么合成一个DateTime型变量?
- 后两句为什么不能建了窗体??
- Tab和Deldte键的问题。(在线等,解决立刻给分)
- 很简单的问题!
- 有没有办法在报表(FastReport)中动态载入jpg照片?(在线)
- *.rec格式的文件能转化成ACCESS表吗?
- 怎么样用socket来监测串口?
- 各位国庆快乐,BDE为什么会出现这样的错误
- 请问如何使用BPL封装窗体,
- Delphi中MDI的问题
- 调用table组件的insertrecord插入一条记录之后,怎么获取该条记录的标识列的值?
- Delphi7的TActionManager的xpstyle在windowxp下,拖动的时候经过的按钮的蓝框都没有消失,在慢机上更是突出。
var
IPList:TStringList;IPList:=TStringList.Create;for i:=0 to 1 do
for j:= 1 to 255 do
IPList.Line.Add(format('192.168.%d.%d',[i,j]));是这个意思吗?
begin
If (A4 < B4) Or (A3 < B3) Or (A2 < B2) Or (A1 < B1) Then
begin
inc(A4);
if A4>255 then
begin
A4:=1;inc(A3);
if A3>255 then
begin
A3:=1;inc(A2);
if A2>255 then
begin
A2:=1;
inc(A1);
end;
end;
end;
IPR(A1, A2, A3, A4, B1, B2, B3, B4);
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
IPR(192,168,1,1,192,168,10,1);//这样可以
end;procedure TForm1.Button1Click(Sender: TObject);
begin
IPR(192,168,1,1,192,169,1,1);//这样溢出了,还有什么算法?
end;
begin
repeat
form1.ListBox1.Items.Add(format('%d.%d.%d.%d',[A1,A2,A3,A4]));
if form1.ListBox1.Items.Count>3000 then form1.ListBox1.Items.Clear ; inc(A4);
if A4>255 then
begin
A4:=1;inc(A3);
if A3>255 then
begin
A3:=1;inc(A2);
if A2>255 then
begin
A2:=1;
inc(A1);
end;
end;
end;
Application.ProcessMessages ;
// IPR(A1, A2, A3, A4, B1, B2, B3, B4);
until not((A4 < B4) Or (A3 < B3) Or (A2 < B2) Or (A1 < B1));
end;