网站 › 『编程语言讨论求助区』 › 求教这个代码，如何和读行挂钩？谢谢

冥界3大法王 发表于 2021-2-4 18:34

求教这个代码，如何和读行挂钩？谢谢

http://www.delphitop.com/html/wenjian/4968.html






function R(const FileName: string): string;
var
M: TFileStream;
begin
M := TFileStream.Create(FileName, fmOpenRead);
try
    SetLength(Result, M.Size);
    M.Read(Result, M.Size);
finally
    M.Free;
end;
end;

Jack2002 发表于 2021-2-4 18:44

还有人学Delphi??? TStringList.LoadFromFile

冥界3大法王 发表于 2021-2-4 19:10

Jack2002 发表于 2021-2-4 18:44
还有人学Delphi??? TStringList.LoadFromFile

慢，慢死，虽然结果正确，但正则按行对比大文件就慢很多了。

Jack2002 发表于 2021-2-4 20:18

冥界3大法王 发表于 2021-2-4 19:10
慢，慢死，虽然结果正确，但正则按行对比大文件就慢很多了。

TFileStream读完文件，用换行符分割成数组再处理，或者多线程处理，只能给点思路，我至少6年没摸过Delphi，电脑上也没安装Delphi！

wangyujie96 发表于 2021-2-4 22:10

这不是直接读取整个文件到内存吗？大文件肯定不能这样做。看你给的链接里是利用内存映射的页缓存机制来避免读整个文件。

c03xp 发表于 2021-2-5 08:55

用指针搜索 \r 和 \n

查看完整版本: 求教这个代码，如何和读行挂钩？谢谢