读txt文档
假如我有一个test.txt文档
内容如下：
——————————————
Loving you
is easy 'Cos you're beautiful
loving you
is all I want to do
Loving you
is more that
Just a dream come true
And everthing I do
is out of loving you
La La...Doo un doo un doo doo, Ah...
——————————————
请问我怎样通过delphi来把文本里面的内容按行,一行一行地写到memo里面去
问题点数：60、回复次数：3Top
1 楼unsigned（僵哥(发站内消息，请附上链接或问题说明，否则不予回复)）回复于 2006-03-07 23:46:06 得分 1
Memo1.Lines.LoadFromFile('driver:\path\test.txt');Top
2 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-07 23:49:01 得分 0
呵呵，Memo本身就有LoadFromFile方法
你真想一行一行读么？
Top
3 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-07 23:57:48 得分 59
如果真要一行一行的读就这么写吧：
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
sFName, sText: String;
begin
sFName := 'e:\test.txt';
if Not FileExists(sFName) then exit;
try
AssignFile(F,sFName);
Reset(F);
Memo1.Clear;
while Not Eof(F) Do
begin
ReadLn(F,sText);
Memo1.Lines.Add(sText);
end;
finally
CloseFile(F);
end;
end;Top
