Text aus Datei laden, Single Quote Problem

[DieDolly]

Es sei n och erwähnt, dass ich CreateMessageDialog verwende.

Delphi-Quellcode:

MsgStr := WrapText(AText, sLineBreak, ['.', ' ', #9, '-'], 75);
 MsgDlg := CreateMessageDialog(MsgStr, MsgDlgType, MsgDlgBtn, MsgDlgBtnDef);

Nach 75 Zeichen sollte eigentlich umgebrochen werden. Es wird aber eine ungefähr 135 Zeichen lange Zeile angezeigt.
Ohne irgendein ' im String wird auch richtig umgebrochen.

Wenn ich ein '' in die Datei schreibe wird korrekt umgebrochen. Aber dann wird auch ein '' angezeigt. Mit StringReplace das '' durch ' austauschen führt zum ursprünglichen Problem.

[Uwe Raabe]

Der Kommentar zu WrapText in System.SysUtils sagt aber auch:

Zitat:

{ WrapText will scan a string for BreakChars and insert the BreakStr at the
last BreakChar position before MaxCol. Will not insert a break into an
embedded quoted string (both ''' and '"' supported) }

Es sollte also funktionieren, wenn du jeden der Single-Quotes verdoppelst.