StringReplace #10 -> #13#10, aber nur wenn nicht schon #13#10 existiert

[himitsu]

@Amateurprofi:
Mach mal aus den String und PChar jeweils AnsiString und PAnsiChar, denn deine Funktionen sind nicht Unicodefähig.

StringReplace ist nunmal sehr einfach programmiert.
Es sucht das erste Vorkommen und verschiebt dann den kompletten nachvolgenden Stringanteil,
danach sucht es das nächste Vorkommen und verschiebt ebenfalls wieder "alles"
usw.

Je länger der String und um so mehr Ersetzungen nötig sind um so mehr/öfters muß kopiert werden.
(Seit der Integration des FastCodeProjekts in Delphi ... irgendwann um D2006 bis D2009 ... sind die Kopierfunktionen schneller, was StringReplace zumindestens etwas beschleunigt hat).

Im himXML versteckt sich eine unaufällige Klasse (ich bin mir nicht sicher, aber ich hab das Gefühl diese auch schonmal einzeln hier irgendwo gepostet zu haben), über welche man Ersetzungen sammeln und dann mehrere solcher Ersetzungen etwas optimiert durchführen lassen kann (diese war mal wegen des StringReplace-Problems mal entstanden).
Damit wäre auch soein StringReplace wie in PHP möglich, also mit mehereren unterschiedlichen Ersetzungen gleichzeitig.