TFileStream: Text am Anfang einfügen in Textdatei

[Helmi]

Hallo,

mit diesem Code schreib ich in Eine Text-Datei ans Ende einen String:

Delphi-Quellcode:

  try
    FileStream := TFileStream.Create(LogFile, fmOpenReadWrite);

    with FileStream do
      begin
        //Fehler-Text
        S := ErrorText;
        S := S + #13#10;

        //
        //Am Ende der Datei schreiben (FileStream-Position = FileStream-Größe)
        Position  := Size;

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

Nur wie kann ich einen String am Anfang der Datei einfügen?

[SirThornberry]

die daten liegen auf der Festplatte hinter einander. Wenn du was davon einfügen willst musst du alle Daten dahinter, versetzt neu schreiben

[Helmi]

Zitat von SirThornberry:

die daten liegen auf der Festplatte hinter einander. Wenn du was davon einfügen willst musst du alle Daten dahinter, versetzt neu schreiben

Sir, das ist mir klar, Sir!

Nur leider weiss ich nicht, wie ich das in code-form bringen kann.

[SirThornberry]

erst mit Stream.Size die Datei vergrößern. Dann die Datei Stückenweise (maximal so groß wie der buffer) ans Ende der Datei schreiben.

[Helmi]

es ist mir klar, dass man es verschieben muss
nur es nutzt mir nichts, wenn du mir schreibst, wie es sein muss
mir wäre ein code-fetzen lieber

[Jürgen Thomas]

Schau Dir einmal das Beispiel an zu TStream.CopyFrom und berücksichtige, dass Du sowohl in der Quelle (bisherige Datei) als auch im Ziel (geänderte Datei) unterschiedliche Position zu setzen hast. Dann könntest Du als aktives Mitglied selbst dahinter kommen. Gruß Jürgen

[Helmi]

Ich habs jetzt mal als aktives Mitlied (wie Jürgen es gerade provokatorisch schrieb) so gelöst:

Delphi-Quellcode:

Stream_Laenge := Size;
SetLength(Buffer, Stream_Laenge);
ReadBuffer(Buffer[1], Stream_Laenge);
Position := 0;

S := S + Buffer;