Zeilenumburch einfügen

[igel457]

Ich baue in mein ContentManaging Programm einen WYSIWYG editor ein. Das klappt auch ganz gut, ich habe nur ein Problem:

Ich möchte Zeilenumbrüche in die Datei die von meinem WYSIWYG Editor rausfällt einfügen:

Folgendes:
<td><table><tr><td>Blabla</td>... soll eigentlich so aussehen:

Delphi-Quellcode:

<td><table><tr><td>

Blabla

</td>

Ich habe folgendes Probiert...

Delphi-Quellcode:

  for i := 0 to pag.count-1 do
  begin
    for j := 1 to length(pag[i]) do
    begin
      if j <> 1 then
      begin
      if copy(pag[i],j,5) = '<!--#' then
      begin
        s := pag[i];
        insert(#13+#10,s,j);
        pag[i] := s;
        for c := j to length(pag[i]) do
        begin
          if (copy(pag[i],c,3) = '-->') then
          begin
            s := pag[i];
            insert(#13+#10,s,c+4);
            pag[i] := s;
          end;
        end;
      end;
      end;
    end;
  end;

Aber das funktioniert einfach nicht, da die Stringlist pag keine neue Zeile erstellt wenn ich einen Zeilenumbruch mit #13 #10 einfüge. Kann ich vielleicht einfach die Stringliste aktualisieren/refreshen?

Danke für eure Ideen!