如何取出一行文本文件中的数字并存入一数组啊? ( 积分: 50 )

一行文本文件中的数字为:
第1组 55 67 82 63 86 88 81
第2组 37 98 79 93 82 98 71
如何将其中的分数取出存入一数组呢?

一行文本文件中的数字为:
第1组 55 67 82 63 86 88 81
第2组 37 98 79 93 82 98 71
如何将其中的分数取出存入一数组呢?

假如你的文件名字为1.txt，这里是读取第一行并存入数组的代码，随手写的，你要验证一下：）
var
lstFile,lstNum:TStringList;
strtemp:string;
i,j:integer;
ArrNum:array[0..64] of integer;
begin
lstFile:=tstringlist.create;
lstNum:=tstringlist.create;
try
lstFile.LoadFromFile('1.txt');
strtemp:=lstFile.Strings[0];
j:=ExtractStrings([' '], [], PChar(strTemp), lstNum);
if j<=0 then
exit;
for i:=0 to jdo
begin
ArrNum:=strToInt(lstNum.Strings);
end;
finally
lstFile.free;
lstNum.Free;
end;
end;

不行啊,说是list index 超出范围了,

for i:=0 to jdo
改成for i:=0 to lstNum.Count-1do

接受答案了.