如何读取TXT文件的数据，并识别出来

[pcf00]

文件格式为：
0 0
1 2
3 3
4 5
6 7
8 9
10 11

如何一行一行的读出来，并能识别出其中的数字，如：0，0，1，2，3，3，4，5，6，。。。

[hsmserver]

var
F: TextFile;
s:string;
ms:TStringList;
begin
AssignFile(F,'文件路径');
ms:=TStringList.Create;
Reset(F);
while not Eof(F) do
begin
Readln(F,S);
ms.Add(S);
end;
CloseFile(F);
end;

[pcf00]

能读出一行的数，但是还没有分离出数字来，每一行数字之间有空格，就说想分离出独立的数字（整数，以空格为界）了

[喝口水]

做了一个过程，用于分离数字
procedure getnum(str:string);
var
i,start,len:integer;
s:string;
begin
s:=str;
len:=length(s);
if len>0 then
begin
start:=1;
for i:=1 to len do
if ord(s[i])=32 then
begin
form1.memo1.Lines.Add(copy(s,start,i-start));
start:=i+1;
end;
if start<len then
form1.memo1.Lines.Add(copy(s,start,len-start+1));
end;
end;

////然后在下面的语句调用该过程即可
var
F: TextFile;
s:string;
ms:TStringList;
begin
AssignFile(F, '文件路径 ');
ms:=TStringList.Create;
Reset(F);
while not Eof(F) do
begin
Readln(F,S);
getnum(s);
end;
CloseFile(F);
end;

[zuoansuifeng]

汗 算了 楼上都有人说了 我就不帮你写了~

[pcf00]

怎么不能结贴啊 要5天以后才可以结贴？！
郁闷。。。。

[pcf00]

问题基本解决，可以结贴了，

多谢： 雨晖、小和 2位朋友指点！！