先一行行读出来

a[0]:=memo.lines[0]
a[1]:=memo.lines[1]
a[2]:=memo.lines[2]
.....

再分别取第四五个数

Delphi里没有subString 
只有Copy()  
Copy(s, index, count)  
其中s,主字符串, index是要拷的起点，count是要拷的字符数  
如：Copy('123456789', 3, 4)，结果为'4567'   

你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846