Question

在delphi7中如何连续读取多个dat文件

我将一个网页代码分成了若干个dat文件分别存储，如何在delphi中将所有文件都读取然后写回成网页文本？

Answer 1

使用TstringList装载,补齐即可:)
var tmpStrs,FileStrs:TStrings;
begin
tmpStrs:=TStringList.Create;
FileStrs:=TStringList.Create;
tmpStrs.LoadFromFile('File1.dat');
FileStrs.AddStrings(tmpStrs);
tmpStrs.LoadFromFile('File2.dat');
FileStrs.AddStrings(tmpStrs);
tmpStrs.LoadFromFile('File3.dat');
FileStrs.AddStrings(tmpStrs);
FileStrs.SaveToFile('page.htm');
tmpStrs.Free;
FileStrs.Free;
end;