Delphi：将文件加载到TStringGrid中

Question

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

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

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

如何使用TStringGrid或替代方法将此类日志文件加载到此程序中？

谢谢！

Answer 1

此过程将日志加载到字符串列表中。对于日志中的每一行，它会在网格控件中指定相应行的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;