delphi - 想要将文件读取到 TStringList

Question

是的，我想将一个简单的日志文件读取到 TStringList 中，使用 LoadFromFile 可以轻松完成。但问题是该文件可能已经被另一个程序同时打开，因此可能会出现异常。我尝试使用:

FileMode := fmShareCompat;

但它不会起作用。

我也尝试过使用:

fFilePath := fPathList[PathIndex] + '\' + FileData.Name;
AssignFile(vFile, fFilePath);
Reset(vFile, 1);  // Recordsize = 1

SetLength(vFileString, FileData.Size);
BlockRead(vFile, vFileString, FileData.Size);   
vCurrentFile.Text := vFileString;

它引发一个 EInOutError 消息 I/O 错误 998。

有什么建议吗？

Answer 1

尝试 LoadFromStream 并执行如下操作:

fileStream := TFileStream.Create(aFileName, fmShareDenyNone);
myTStringList.LoadFromStream(fileStream);
fileStream.Free();