dtaus datei ohne satzende CR/LF

[libertisoft]

ich möchte eine datei (dataus) schreiben, die kein Satzende hat.
Also ohne CR/LF am Ende.

alle meine Versuche scheiterten bisher!!

Versuch 1:
xhelp:='c:\DTAUS'+TRim(Edisk.Text)+'ascii.TXT';
ll.SaveToFile(xhelp);

Versuch 2:
FS := TFileStream.Create(xhelp,fmCreate);
try
FS.Write(ss[1],length(ss));
finally
FS.Free;
end;

Versuch 3:
xhelp:='c:\DTAUSU'+TRim(Edisk.Text)+'ascii.TXT';
AssignFile(F2, xhelp);
Rewrite(F2);
write(F2,ss);
closefile(F2);

vielleicht kann mir jemand auf die Sprünge helfen

Friedel

[Geert Dade]

Moin Friedel,
ich habe Deine Aufgabenstellung - wie sie verstanden habe - einmal nachvollzogen. Soweit ich sehen kann (ultraedit), entsteht kein CR/LF am Dateiende:
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i : integer;
begin
s := 'abcdefghijk';
with TFileStream.Create('c:\dtaus.txt', fmCreate) do
try
for i := 1 to Length(s) do WriteBuffer(s[i], 1);
finally
Free;
end;
end;
Gruß,
Geer