从你的格式上看是以空格分隔数据的,所以可以用这样的方法去获取数据:var
  K,J :integer;
  ArrayInfo : Array[0..2] of String;
begin
assignfile(f1,'ip.txt');
reset(f1);
try
  while not  eof(f1) do
  begin
    readln(f1,ipaddress);
    for i := 0 to 1 do
    begin
      K := pos(' ',ipaddress);
      ArrayInfo[J] := copy(ipaddress,1,K - 1);
      ipaddress := trim(copy(ipaddress,K,length(ipaddress)- K + 1));
    end;
    ArrayInfo[2] := ipaddress;
  end;
finally
  closefile(f1);
end;