Logdatei in StringGrid laden

[marabu]

Hallo Sascha,

dein Logfile ist ein Tab Delimited Textfile:

Delphi-Quellcode:

procedure ShowLog(const fn: TFileName; sg: TStringGrid; delimiter: Char = #9);
var
  log: TextFile;
  line: string;
begin
  AssignFile(log, fn);
  Reset(log);
  with sg do
  begin
    RowCount := 1;
    while not Eof(log) do
    begin
      ReadLn(log, line);
      Rows[Pred(RowCount)].Text := StringReplace(line, delimiter, sLineBreak, [rfReplaceAll]);
      RowCount := RowCount + 1;
    end;
    FixedRows := 1;
  end;
  CloseFile(log);
end;

Getippt und nicht getestet.

Freundliche Grüße