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!