String am Ende einer textdatei anhängen (TFileStream)

[Helmi]

Hallo,

ich hab folgenden Code:

Code:

        //Aus der vorhandenen Datei "Monitor.log" lesen
        FileStream := TFileStream.Create(drive_MonitorLog, fmOpenReadWrite);

        with FileStream, ListView_CallingList do
          begin
            //ListView auslesen und zu einem String hinzufügen
            for i2 := 0 to i - 1 do
              begin
                S_List := S_List +
                          Items.Item[i2].SubItems.Strings[2] + ', ' + //Datum
                          Items.Item[i2].SubItems.Strings[3] + ', ' + //Uhrzeit
                          Items.Item[i2].Caption             + ', ' + //Name
                          Items.Item[i2].SubItems.Strings[0] + ', ' + //Nummer
                          Items.Item[i2].SubItems.Strings[1] + ', ' + //Ort
                          Items.Item[i2].SubItems.Strings[4] + #13#10;//MSN
              end;

            //In die vorhandene Datei "Monitor.log" schreiben
            WriteBuffer(S_List[1], Length(S_List));
          end;
      finally
        //FileStream freigeben und löschen
        FreeAndNil(FileStream);
      end;

leider wird an die der String S_List nur an den Anfang der Datei gestellt aber ned ans Ende.

Wie kann man das machen?

mfg
Helmi

[jim_raynor]

FileStream.Position:=FileStream.Size sollte die Lösung sein.

[edit] oder besser FileStream.Seek(0,SoFromEnd)[/edit]

[Christian Seehase]

Moin Helmi,

Du musst vor dem Schreiben noch die Eigenschaft Position des FileStreams auf Size setzen.

[Helmi]

meint ihr so:

Code:

FileStream.Position := FileStream.Size;

:?: :?: :?:

[edit] :!: :!: :!: Ah - es geht sich so :-D :!: :!: :!: [/edit]