theoretisch ginge auch etwas in dieser Richtung:
Delphi-Quellcode:
sl.Text := 'asd' + StringReplace(sl.Text, sLineBreak, sLineBreak + 'asd', [rfReplaceAll]);
// aka
sl.Text := 'asd' + StringReplace(sl.Text, #13#10, #13#10 + 'asd', [rfReplaceAll]);
(eventuell müßte dann noch die letzte Zeile gelöscht werden ... ich min mir grad nicht sich ob Text immer mit CRLF endet und somit eine Zeile dazukäme)
Bei einer normalen Stringlist wäre dieses aber langsamer unr würde mehr Speicher verbrauchen,
da die TStringList/TStrings die Strings einzelnen verwaltet und diese erst zu einem Text zusammengesetzt und dann wieder getrennt werden müssen.
Wärend aber bei einem TMemo (Lines ala virtueller TStringList) die Strings im Memo alle zusammen sind
und somit die einzelne Bearbeitung der Strings wiederum langsamer wäre, da dort ja erst jeder einzel String aus dem Text herausgelöst und danach dort wieder eingefügt werden müßte.