String ohne CR/LF am Ende in Datei schreiben

[Delix]

also bis jetzt funktionieren alle Varianten nicht. Ich schreibe einen String von 1000 Zeichen und bekomme eine Datei mit 1002 Zeichen. Immer schön mit CR/LF hinten dran.

[himitsu]

Alle?

Mit Write kann kein CRLF entstehen (es sei denn man hat es in den zu schreibenden String reingemacht).



Tipp: Man kann im Profil angeben welche Delphi-Version man nutzt.
Für neuere Delphiversionen (hätte ich da womöglich was) ... für ältere müßte man es anpassen.

[DeddyH]

Mit Delphi 2007 ausprobiert:

Delphi-Quellcode:

procedure SaveStringToFile(const Filename: TFilename; const InputString: string);
var
  SStream: TStringStream;
  FStream: TFileStream;
begin
  SStream := TStringStream.Create(InputString);
  try
    FStream := TFileStream.Create(Filename, fmCreate or fmShareDenyWrite);
    try
      FStream.CopyFrom(SStream, 0);
    finally
      FStream.Free;
    end;
  finally
    SStream.Free;
  end;
end;

"Hallo Welt" ergibt damit bei mir eine Datei von 10 Byte, passt also.

[Delix]

Sorry! Der Fehler saß vorm Bildschirm

Im Programm wird die Datei aus Sicherheitsgründen mehrfach geschrieben. Das finale Schreiben erfolgt die ganze Zeit per SaveToFile. Die Vartiante mit TFileStream funktioniert!

Danke für die Mühe und schönes Wochenende!

[BUG]

Zitat von Delix:

Im Programm wird die Datei aus Sicherheitsgründen mehrfach geschrieben.

Wieso denn genau? Riecht irgendwie etwas nach Voodoo.

[p80286]

Kein voodoo.
Ich denke das soll soetwas wie ein Logfile sein, wo z.B. jede 10 Sekunden der aktuelle Status abgelegt wird.
Ob das allerdings so ganz richtig ist??

Gruß
K-H