String ohne CR/LF am Ende in Datei schreiben

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