Zeichen mit StringReplace aus Memo entfernen

[Yheeky]

Hi,

habe dieses Mal nur eine kurze Frage ;-)
Wie bekomme ich die im Anhang zu sehenden Zeichen per StringReplace aus einem Memo raus?

[Luckie]

Das sieht aus, als wenn das nicht darstellbare Steuerzeichen wären. Guck dir die Datei mal in einem HexEditor an. Bei StringReplace gibst du dann die ordinal Werte an. Zum Beispiel $0D$0A würde alle Zeilenumbrüche entfernen.

[Yheeky]

Du hast recht - es handelt sich in der Tat um einen Zeilenumbruch...ich habe bereits folgendes (ohne Erfolg) probiert:

Delphi-Quellcode:

Result := StringReplace(Text, #10#13, '', [rfReplaceAll]);
oder
Result := StringReplace(Text, #10, '', [rfReplaceAll]);
oder
Result := StringReplace(Text, #13, '', [rfReplaceAll]);

Ich denke das ist das, was du mit $0D$0A meintest oder?

[idontwantaname]

Zitat:

Zitat von Yheeky

Du hast recht - es handelt sich in der Tat um einen Zeilenumbruch...ich habe bereits folgendes (ohne Erfolg) probiert:

Delphi-Quellcode:

Result := StringReplace(Text, #10#13, '', [rfReplaceAll]);
oder
Result := StringReplace(Text, #10, '', [rfReplaceAll]);
oder
Result := StringReplace(Text, #13, '', [rfReplaceAll]);

Ich denke das ist das, was du mit $0D$0A meintest oder?

Du musst Text := StringReplace(Text, #10#13, '', [rfReplaceAll]); verwenden, da der neue String ja wieder dem Memo zugewiesen werden muss!

[marabu]

Hallo,

es genügt eine Zuweisung von Text an Text um die falsch platzierten Zeilenumbrüche zu entfernen. Besser ist es aber diese Zeilenumbrüche garnicht erst einzubauen. Das geht am besten über eine temporäre StringListe:

Delphi-Quellcode:

procedure AddText(s: TStrings; sText: String);
var
  sTemp: TStrings;
begin
  sTemp := TStringList.Create;
  sTemp.Text := sText;
  s.AddStrings(sTemp);
  sTemp.Free;  
end;

Grüße vom marabu

[Christian Seehase]

Moin Zusammen,

nur noch mal der Vollständigkeit halber:
Der Zeilenumbruch in #13#10 (bzw. $0D$0A), und nicht anders herum.

[Yheeky]

Also

Delphi-Quellcode:

Result := StringReplace(Text, #13#10, '', [rfReplaceAll]);

funktioniert! Danke für den Hinweis und an alle anderen Postings!