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

Delphi：将文件加载到TStringGrid中

发布于 2024-11-24 20:51:08 字数 240 浏览 0 评论 0原文

有一个程序可以创建日志文件。

这是它创建的日志文件的示例：

在此处输入图像描述

该程序将此日志文件加载到 TStringGrid 中。日志文件以制表符分隔。一个单元格可以有一个空格“”。

我如何使用 TStringGrid 或替代方案像这个程序一样将这样的日志文件加载到其中？

谢谢！

原文

分享到QQ

分享到微博

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

发布评论

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

清风疏影 2024-12-01 20:51:08

此过程将日志加载到字符串列表中。对于日志中的每一行，它分配相应的 CommaText 属性网格控件中的行。该属性自动分割字符串中以逗号和空格分隔的标记。如果您有较新的 Delphi 版本，则可以使用 DelimitedText 属性代替，如果日志可能包含不带引号的逗号，这将更合适。

procedure LoadLogFile(const FileName: TFileName; Grid: TStringGrid);
var
  LogFile: TStrings;
  i: Integer;
begin
  LogFile := TStringList.Create;
  try
    LogFile.LoadFromFile(FileName);
    Grid.RowCount := LogFile.Count;
    for i := 0 to Pred(LogFile.Count) do
      Grid.Rows[i].CommaText := LogFile[i];
  finally
    LogFile.Free;
  end;
end;

This procedure loads the log into a string list. For each line in the log, it assigns the CommaText property of the corresponding row in the grid control. That property automatically splits comma- and space-separated tokens in a string. If you have a newer Delphi version, you can use the DelimitedText property instead, which will be more appropriate if the log might ever contain unquoted commas.

procedure LoadLogFile(const FileName: TFileName; Grid: TStringGrid);
var
  LogFile: TStrings;
  i: Integer;
begin
  LogFile := TStringList.Create;
  try
    LogFile.LoadFromFile(FileName);
    Grid.RowCount := LogFile.Count;
    for i := 0 to Pred(LogFile.Count) do
      Grid.Rows[i].CommaText := LogFile[i];
  finally
    LogFile.Free;
  end;
end;

回复收藏 0 原文

~没有更多了~