delphi - 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;