abspeichern einer textdatei ohne lästigen Zeilenumbruch

[SirThornberry]

Warum schreibst du dir nicht deine eigene Speichernfunktion so wie du sie haben willst?

Beispiel (ungetestet):

Delphi-Quellcode:

var
  i: Integer;
  s: string;
  lStream : TStream;
begin
  lStream := TFileStream.Create(YourFileName, fmCreate);
  try
    for i := 0 to strings.count - 2 do
    begin
      s := strings.string[i] + #13#10;
      lStream.Write(s[1], Length(s));
    end;

    if (strings.count > 0) then
    begin
      s := strings.string[strings.count - 1];
      lStream.Write(s[1], Length(s));
    end;
  finally
    lStream.Free;
  end;
end;