Hi
Ich habe eine MEMO mit einigen Lines hardcoded im Form.
NUn möchte ich es per sftp an UNIX übertragen. Dazu möchte ich das MEMO mit linebreaks = #10 speichern.
Ich habe auch memoscript.linebreaks = #10 definiert. Doch er speichert immer noch mit CRLF.
Wieso?

Demo:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i := 0 to 19 do Memo1.Lines.Add(INTTOSTR(i));
end;

procedure TForm1.Button2Click(Sender: TObject);
var newStr : String;
begin
 Label1.Caption:= Memo1.Text;
 newStr:= Label1.Caption;
 newStr := StringReplace(newStr,#$A,'',[rfReplaceAll]); // entweder
// newStr := StringReplace(newStr,#$D,'',[rfReplaceAll]); // oder
 Label2.Caption:= newStr;
 Application.ProcessMessages;
 Memo2.Text:= Label2.Caption;
 Application.ProcessMessages;
 Memo2.Lines.SaveToFile('F:\Memo2.txt');
end;

Hallo,

welches Memo benutzt Du denn?
TMemo hat meines Wissen kein Property namens LineBreak.

Grüße
Klaus

Zitat:

Memo1.Lines.LineBreak

Doch, hat es.

ABER, im TMemoStrings ist es nur "halb" implementiert.
TStrings.GetTextStr beachtet zwar dieses Property, aber TMemoStrings.GetTextStr überschteibt das und dort wird so gut optimiert, dass "direkt" Memo.Text rausgegeben wird, wo das nicht mehr Beachtung findet.

StringReplace anwenden oder in eine andere TStringList umkopieren.
PS: AdjustLineBreaks

Hmm..

oder OldStyle...

zusammenfalten · markieren

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;

Und gerade sowas sollte man NIEMALS achen.
Denn diese Datei sieht dann anders aus, wenn man die Anweendung in verschiedenen Delphis kompiliert und das ohne jegliche Format-/Versionsinformationen in der Datei. (Unicode oder nicht)

Zitat von himitsu:

Und gerade sowas sollte man NIEMALS achen.
Denn diese Datei sieht dann anders aus, wenn man die Anweendung in verschiedenen Delphis kompiliert und das ohne jegliche Format-/Versionsinformationen in der Datei. (Unicode oder nicht)

OK, dann erkläre mir dochmal was dann 'Gleich' bei Memo2.Lines.SaveToFile('F:\Memo2.txt') unter Delphi6 (ANSI) und DelphiX (Unicode) ist?

Auch da wird KEINE Versionsinfo mitgespeichert, sondern nur der reine Textinhalt des MEMOs!
Auch da wird beim einen ein ANSI-Text erstellt und beim Anderen (eventuell) ein Unicode-Text!

Also, was ist an Memo2.Lines.SaveToFile besser?

Die Funktion von mir lässt sich problemlos um einen BOOM ergänzen, damit eine Unterscheidung von ANSI und UniCode möglich ist.
Auch könnte mann statt eine 'String' auch 'AnsiString' verwenden, welches für die meisten UNIX-Texte ausreichen würde..
(Dann allerdings das '* SizeOf(Char)' auskommentieren.

Da wir nicht wissen welches Format der Text haben müsste, können wir nur raten, ob UniCode/ANSI/mit oder ohne Boom benötigt wird..

Der TE wollte nur wissen, wie er ein Memo statt mit CR/LF nur mit LF speichert. Und genau dass mach die Funktion!