TStringList: Statt "#13#10" nur "#10"?

[p80286]

Anderer Vorschlag, wie wäre es mit soetwas:

Delphi-Quellcode:

procedure SCHREIBESTRINGLISTE_0A(ss:tstringlist;fn:string);
var
  i : integer;
  tb : array [0..8192] of byte;
  f : textfile;
begin
  assignfile(f,fn);
  settextbuf(tb,sizeof(tb));
  rewrite(f);
  for i:=0 to sl do
    write(f,sl[i]+#10);
  closefile(f);
end;

Gruß
K-H