从你的格式上看是以空格分隔数据的,所以可以用这样的方法去获取数据: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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货