小弟初学,谢谢了.....

var
addrIP:array of AnsiString;

setLength(addrIP,5);
addrIP[0]:='192.168.1.1';
addrIP[1]:='192.168.1.2';
............

应该不是这样吧,就一个IP地址,以点做分割,像192.168.1.3
addrIP[0]:='192';
addrIP[1]:='168';
addrIP[2]:='1';
addrIP[3]:='3';

s1:="192.168.1.1";
str1:=copy(s1,1,pos("-",s1)-1);s
tr2:=copy(s1,pos("-",s1)+1,length(s1));
...
...

下面和上面差不多 就是从上次找到的位置 再继续copy