Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#1

String am Ende einer textdatei anhängen (TFileStream)

  Alt 3. Dez 2004, 19:49
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
  Mit Zitat antworten Zitat