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;