Einlesen von Datei mittels TFileStream

[Hawkeye219]

Auf die temporäre Stringliste könnte man noch verzichten:

Delphi-Quellcode:

procedure TForm1.RefreshLogClick(Sender: TObject);
var
  LogFile: TFileStream;
begin
  LogFile := TFileStream.Create(DllPath + '\sql.log', fmOpenRead or fmShareDenyNone);
  StringGrid1.Cols[1].LoadFromStream(LogFile);
  LogFile.Free;
end;

Gruß Hawkeye