本文整理自网络，侵删。
请确保您使用的是FastMM4-这样可以加快速度。内存分配很多。如果您只读取一次文件，则可以根据需要继续使用旧的“ TextFile”处理。只需添加一些更大的读取缓冲区，并摆脱I / O检查即可：
var sourceFile : textFile; line : string; fields : TinputList; buf: array[word] of byte; // 64 KB buffer begin fields:=TinputList.create; AssignFile(sourceFile,filename); SetTextBuf(sourceFile,buf); // will speed up reading Reset(sourceFile); {$I-} // if we reached here, the file is existing while NOT EOF(sourceFile) do begin ReadLn(sourceFile,line); fields.loadFromCommaLine(line); // process the fields of this record end; {$I+} closeFile(sourceFile); fields.free; end;
默认情况下，缓冲区为128字节，这非常小，并且会经常调用Windows文件API：这是较慢的部分。
仅使用64 KB即可大大提高速度。ReadLn（）函数速度很快，尤其是当您的行少于256个字节时。
如果要随机访问文件内容，可以通过“内存映射”窗口读取文件。
它非常快速且方便，但是在32位处理下，您将无法一次映射3GB的文件（根据我的实验，最多可以映射500 MB或更少，具体取决于您当前的内存使用情况） 。因此，您必须使用“窗口”，该窗口有意在文件上滑动。
相关阅读 >>
Delphi 二进制值转换十六进制 bintohex和hextobin
更多相关阅读请进入《Delphi》频道 >>
