怎么读取指定txt文本的所有内容？

[dby107]

如C盘有个txt文本，怎么现实读取它的所有内容？（不带VCL库）

[kfcoffe]

方法太多了

txtList : TStringList;

txtList.loadformfile('c:\test.txt');

代码随手写的没测试，

[阿三]

stringlist.loadfromfile然后去处理。

[dby107]

都说了，不带VCL库。

[kfcoffe]

openFile

readFile

[kfcoffe]

Fileopen

FileRead

不好意思

[dby107]

[Quote=引用 4 楼 kfcoffe 的回复:]
openFile

readFile

[/Quote]

- - 能不能完整点啊

[kfcoffe]

F1,比我说的要完整多了

[dby107]

[Quote=引用 7 楼 kfcoffe 的回复:]
F1,比我说的要完整多了
[/Quote]

I 服了 Y....

提供下完整代码吧，举手之劳啊，谢谢~~

[yyyyyhhhhwwww]

memo1.lines.loadfromfile('c:\1.txt')

[chhrsas]

var
f : text;
begin
assign(f,'c:\1.txt');
reset(f);//读
rewrite(f);//重写
close(f);//关
end;