String ohne CR/LF am Ende in Datei schreiben

[Delix]

Hallo zusammen,

ich suche nach einer Möglichkeit, einen String in eine Datei zu schreiben, ohne das am Ende der Datei ein Carriage return Linefeed angehängt wird. Die üblichen Verdächtigen wie ..savetofile order TextFile.write hängen immer diese Zeichen an.

Schönen Gruss

[Bernhard Geyer]

Am einfachsten dürfte das über eine TStringList gehen.

[Klaus01]

Hallo,

die könntest die Datei mit TFileStream öffnen.

Delphi-Quellcode:

fstream := TFileStream.create(fName, fmOpenWrite);
try
  fstream.seek(0,soFromEnd);
  fstream.writeBuffer();
finally
  fstream.free;
end;

Wobei im Buffer dann Deine Daten stehen sollten.

Grüße
Klaus

[gammatester]

Zitat von Delix:

TextFile.write hängen immer diese Zeichen an.

Das wäre aber ziemlich ungewöhnlich, weil write genau gefür gedacht ist. Bis Delphi 12 schreibt zB

Delphi-Quellcode:

var
  f: textfile;
begin
  assign(f,'tst');
  rewrite(f);
  write(f,'1');
  close(f);
end.

genau 1 Zeichen und nicht 3.

[p80286]

Zitat von Delix:

Hallo zusammen,

ich suche nach einer Möglichkeit, einen String in eine Datei zu schreiben, ohne das am Ende der Datei ein Carriage return Linefeed angehängt wird. Die üblichen Verdächtigen wie ..savetofile order TextFile.write hängen immer diese Zeichen an.

Bei Writeln kann ich das nachvollziehen, bei Write habe ich da so meine Zweifel.
Was willst Du damit erreichen?
Ein String ohne CRLF klingt für mich wie Ofenrohr-Blech =Loch Gruß
K-H

[shmia]

Ist doch ganz einfach:
StringToFile() und FileToString()

[DeddyH]

Mit einem TStringStream wäre das IMO noch einfacher und nicht auf Ansi beschränkt.

[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.