如:

Edit1.text:= 61.61.61.61
Edit2.text:= 61.61.63.65

如何将 61.61.61.61 - 61.61.63.65 之间的I P添加到 Memo 中.

请哥哥姐姐们 敲盘相助.!

思路：
把IP1与IP2分别转换为整数表示，再把两个整数之间的值列举出来并以IP字符串形式表示.

示例代码：

function IPStrToIPVal(value: string): integer;
var
s: string;
i, x: Integer;
begin
Result := 0;
for x := 0 to 3 do
begin
s := Copy(value, 1, Pos('.', value) - 1);
i := StrToIntDef(Trim(s), 0);
Result := (256 * Result) i;
Delete(value, 1, Pos('.', value));
if Pos('.', value) = 0 then value := value '.';
end;
end;

function IPValToIPStr(value: integer): string;
var
x1, x2: word;
y1, y2: byte;
begin
Result := '';
x1 := value shr 16;
x2 := value and $FFFF;
y1 := x1 div $100;
y2 := x1 mod $100;
Result := inttostr(y1) '.' inttostr(y2) '.';
y1 := x2 div $100;
y2 := x2 mod $100;
Result := Result inttostr(y1) '.' inttostr(y2);
end;

procedure TForm5.Button1Click(Sender: TObject);
var
ip1, ip2: Integer;
i: Integer;
begin
ip1 := IPStrToIpVal(Edit1.Text);
ip2 := IPStrToIpVal(Edit2.Text);
for i := ip1 to ip2 do
memo1.Lines.Add(IPValToIPStr(i));
end;

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------