Autor Beitrag
Kralle
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 65

Windows XP,Win7
Delphi 6, Turbo Delphi Pro, Delphi 7 Enterprise, Delphi XE2 Lazarus
BeitragVerfasst: Do 13.09.12 20:31 
N'abend,

wenn ich die Eigenschaft "Text" einer Stringlist aufrufe, dann werden die Teiltexte mittels '#$D#$A' zusammengefügt.
Ein "StringReplace" mit '#$D#$A' oder #13#10 löscht diese Zeichen nicht.

ausblenden Delphi-Quelltext
1:
2:
3:
 
zeile:= list.Text;
memo1.Lines.Append(StringReplace(zeile,'#$D#$A','',[rfReplaceAll]));


Wie bekomme ich aus dem zusammengesetzten String den Zeilenumbruch raus?

Gruß Heiko
mandras
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 432
Erhaltene Danke: 107

Win 10
Delphi 6 Prof, Delphi 10.4 Prof
BeitragVerfasst: Do 13.09.12 20:37 
> Wie bekomme ich aus dem zusammengesetzten String den Zeilenumbruch raus?

indem Du

ausblenden Delphi-Quelltext
1:
2:
 
memo1.Lines.Append(StringReplace(zeile,#$D#$A,'',[rfReplaceAll]));


verwendest.

'#$D#$A' = '#$D#$A' aber
#$D#$A = chr($0d)+chr($0a)

Für diesen Beitrag haben gedankt: Kralle
Kralle Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 65

Windows XP,Win7
Delphi 6, Turbo Delphi Pro, Delphi 7 Enterprise, Delphi XE2 Lazarus
BeitragVerfasst: Do 13.09.12 20:51 
Hallo mandras,

user profile iconmandras hat folgendes geschrieben Zum zitierten Posting springen:


ausblenden Delphi-Quelltext
1:
2:
 
memo1.Lines.Append(StringReplace(zeile,#$D#$A,'',[rfReplaceAll]));


verwendest.


Aua, das tut schon weh. 5 Zeilen drüber füge ich in einer Messagebox #13#10 ohne Hochkomma ein.

Danke.

Gruß HEiko