StringGrid in einer Datei speichern

[strom]

hallo,

beim abspeichern (siehe Bild) wird unter" Event" immer eine Leerzeile eingefügt warum?
Datum,Zeit usw. wird richtig gespeichert!

Delphi-Quellcode:

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
  f:    TextFile;
  i, k: Integer;
begin
  AssignFile(f, FileName);
  Rewrite(f);
  with StringGrid do
  begin
    // Write number of Columns/Rows
    Writeln(f, ColCount);
    Writeln(f, RowCount);
    // loop through cells
    for i := 0 to ColCount - 1 do
      for k := 0 to RowCount - 1 do
        Writeln(F, Cells[i, k]);
  end;
  CloseFile(F);
end;

Delphi-Quellcode:

 DeleteFile(ExtractFilePath(ParamStr(0)) + 'StringGrid.txt');
  SaveStringGrid(StringGrid1, ExtractFilePath(ParamStr(0)) + 'StringGrid.txt');

Zitat:

Event
Socket 192.168.0.16 ADMOESOFT --> #3#

Socket 192.168.0.16 ADMOESOFT --> #1#[

[nahpets]

Naja, prüf' mal bitte, ob die Originalmeldung

Code:

Socket 192.168.0.16 ADMOESOFT --> #3#

mit 'nem Zeilenumbruch endet.

Den sieht man zwar nicht im StringGrid, aber bei der Ausgabe der Gridinhalte per WriteLn, tritt in dem Fall genau dieses Verhalten auf.

Am einfachsten kannst Du das prüfen, indem Du die Ausgabe mal auf Writeln(F, Trim(Cells[i, k])); änderst.

Fehlt dann bei der Ausgabe der Zeilenumbruch, so ist der in der Zeichenfolge (und damit auch im StringGrid) enthalten.

[strom]

jup, danke!

-es war der Zeilenumbruch -