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:

Delphi-Quellcode:

<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!

[Flocke]

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.

[igel457]

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

[3_of_8]

@Flocke: Ich würds lieber so machen:

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

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

[igel457]

Hab jetzt vor meine Kommentare "|#br#|" geschrieben, das geht, und rufe dann...

Delphi-Quellcode:

  StringReplace(pag.Text, '|#br#|', #13+#10, [rfReplaceAll]);

...auf.

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

[igel457]

Was? Das ist eine Funktion???? :wall:

Jetzt gehts!