Einlesen von Datei mittels TFileStream

[faux]

Zitat von F.W.:

Schreib einen String in die Datei mit den Zeichen #13#10 am Ende (Zeilenumbruch).

Ja, das habe ich, aber nur zusätzlich.

Naja, ich sehe gerade dein Vorschlag bezieht sich eher auf das Schreiben, das habe ich aber bereits gelöst. Mir geht es ums Auslesen der Datei.

Aber dein Vorschlag mit der TStringList war mal nicht so schlecht. Habe es so gelöst:

Delphi-Quellcode:

procedure TForm1.RefreshLogClick(Sender: TObject);
var
  LogFile: TFileStream;
  List: TStringList;
  i: Integer;
begin
  LogFile := TFileStream.Create(DllPath + '\sql.log', fmOpenRead or fmShareDenyNone);
  List := TStringList.Create;
  List.LoadFromStream(LogFile);
  for i := 0 to List.Count - 1 do
  begin
    StringGrid1.Cells[1, i] := List[i];
  end;
  List.Free;
  LogFile.Free;
end;

Grüße
Faux