Die Abfrage klingt irgendwie falsch:
Delphi-Quellcode:
// Tags brauchen wir nicht, ebensowenig wie Leerzeilen.
for i := sl.Count - 1 downto 0 do begin
if (Copy(sl[i],1,1) = '<')
or (Copy(sl[i],1,1) = '<')
or (sl[i] = '') then sl.Delete(i);
end;
Außerdem werden da auch die Endtags (/>) nicht berücksichtigt.
Ich würde auch einen
XML-Parser nehmen. Ist initial zwar mehr Aufwand, aber wenn die Formatierung mal eine andere ist, funktioniert es noch.
Bei den ganzen Stringreplaces muss nur einmal anstatt <tag></tag> nur ein <tag /> stehen und es geht möglicherweise schon gar nicht mehr.