Forum: Algorithmen, Datenstrukturen und Klassendesign
by p80286,
30. Jul 2012
Ich kenne als Verursacher, word und Wordpad aber es gibt da bestimmt noch ein paar andere.
ersetz doch jedes alleine stehendes #10 durch #13#10 und fertig.
for i:=length(mytext) down to 1 do
if mytext=#10 then
if (i>1) and (mytext<>#13) then
insert(#13,mytext,i)
else
if i=1 then
Forum: Algorithmen, Datenstrukturen und Klassendesign
by p80286,
30. Jul 2012
Gehen wir davon aus, daß die Zeilenumbrüche CRLF sind, dann solltest Du dies Aufteilung mit Stringliste zurück erhalten.
Wenn der Ausdruck nicht so aussieht wie Du ihn erwartest, bräuchten wir noch ein paar Details.
Gruß
K-H