当前位置：文江博客话题详情

德尔福。 SynEdit - 加载文件的最后 500 KB

发布于 2024-11-14 14:36:21 字数 94 浏览 6 评论 0原文

请给我建议一些东西。

如果文件的最后 500 KB 超过 500 KB，如何将其加载到 UniSynEdit/SynEdit 中？

谢谢！！！

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

末骤雨初歇 2024-11-21 14:36:21

您可以选择的一种选择是将文件的最后 500 KB 复制到临时文件中，然后要求 synEdit 处理该临时文件。

回复收藏 0 原文

酒与心事 2024-11-21 14:36:21

创建一个 TFileStream 并查找要从中加载的位置，然后将流传递到编辑控件。它应该从当前位置加载。

var
  stream: TStream;
begin
  stream := TFileStream.Create(filename, fmOpenRead);
  try
    stream.Seek(-500 * 1024, soEnd);
    edit.Lines.LoadFromStream(stream);
  finally
    stream.Free;
  end;
end;

请注意，如果文件被编码为 UTF-8 或其他每个字符使用可变字节数的编码，则跳转到文件中的任意位置是不安全的。您可能会跳转到表示两字节序列后半部分的字节，然后您读取的所有后续字符都可能被错误解释。 ANSI 和 UTF-16 文件没有这种危险。

Create a TFileStream and seek to the position you want to load from, and then pass the stream to the edit control. It should load from the current position.

var
  stream: TStream;
begin
  stream := TFileStream.Create(filename, fmOpenRead);
  try
    stream.Seek(-500 * 1024, soEnd);
    edit.Lines.LoadFromStream(stream);
  finally
    stream.Free;
  end;
end;

Beware that if the file is encoded as UTF-8 or something else that uses a variable number of bytes per character, it isn't safe to jump to arbitrary positions in the file. You might jump to a byte that represents the second half of a two-byte sequence, and then all the subsequent characters you read could be interpreted incorrectly. ANSI and UTF-16 files don't have that danger.

回复收藏 0 原文

~没有更多了~