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:

markieren

Delphi-Quellcode:

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

Blabla

</td>

Ich habe folgendes Probiert...

zusammenfalten · markieren

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!

Füge doch einfach statt #13#10 zunächst eine bestimmte Zeichenfolge ein, z.B. '[@NEWLINE]' und schreibe am Ende StringReplace(pag.Text, '[@NEWLINE]', #13#10) in die Ausgabedatei.

Hmmm... Hört sich gut an. werde es gleich mal ausprobieren!

@Flocke: Ich würds lieber so machen:

StringReplace(pag.Text, '[@NEWLINE]', #13#10, rfReplaceAll);

Eventuell auch noch nicht CaseSensitive. Aber rfReplaceAll auf jeden Fall.

Hab jetzt vor meine Kommentare "|#br#|" geschrieben, das geht, und rufe dann...
  StringReplace(pag.Text, '|#br#|', #13+#10, [rfReplaceAll]); ...auf.

Das geht leider nicht. liegt das an den Strichen oder was?

Was? Das ist eine Funktion????

Jetzt gehts!