Question

delphi下如何读入文本文件的数据？

现在有一个文本，在一行有多个数据，用空格隔开了
如：100 200 300 400 500 600 700 800 900 1000，数据具体位数不确定。
如果一行只有2-3个，可以这样读入read(textvar,num1,num2,num3);
可是现在有10个，不知怎么读入？？
readln读一行，read是把一行读入若干数据。怎么一个一个读。
其实，可以把一行都读入，赋予字符串，再找出空格的位置，再用copy函数。只是看看有没有更好的方法。

Answer 1

var
ss:TStrings;

ss := TStringList.Create;
ss.CommaText := '100 200 300 400 500 600 700 800 900 1000';
for i:=0 to ss.Count-1 do
writeln(ss[i]);
ss.Free;

原创经码岩好迟铅典代码枣指! 20分太少了,加分加分啊!

Answer 2

while not eof(textvar) do
begin
//一个一个读
end;