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