delphi怎么读取多个文本文件

delphi怎么读取多个文本文件

以使用for循环处理，使用定时肯定有问题。
FileNameCount可以是获取目录中的文件数，也可以自己定义。
FileName可以是指定的一个数组，也可以是通过获取目录的文件名数组。
for i:=0 to FileNameCount-1 do
Memo1.Lines.LoadFromFile(fileName[i]);
截取代码过程根据自己的要求做 得到字符串暂存到Str
ListBox1.Items.Add(Str);
end;

这个程序楼主没有给全, 不知道有没有给文本定义, 就上面的代码来说, 出现i/o错误是很正常的, 在执行文本操作前是要进行关联的 比如楼主的myfile 开始的时候这样定义 var myfile: file begin assignfile(myfile, path);//path是路径, 开始是要定义的 //定义以后才能用closefile, 可以说assignfile和closefile是成对出现的 //楼主用的readln虽然可以用, 但是这是pascal的语法, 在delphi不提倡这样