MEMO als FILE speichern mit LF anstatt CRLF

[HolgerX]

Hmm..

oder OldStyle...

Delphi-Quellcode:

procedure SaveStringsLF(AStrings : TStrings; AFileName : string);
var
  fs : TFileStream;
  i : integer;
  s : string;
begin
  fs := TFileStream.Create(AFileName,fmCreate);
  try
    for i := 0 to AStrings.Count-1 do begin
      s := AStrings[i] + #10;
      fs.Write(s[1],length(s) * SizeOf(Char));
    end;
  finally
    fs.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveStringsLF(Memo1.Lines, 'F:\Memo2.txt');
end;