Pokazywanie postów oznaczonych etykietą HTML. Pokaż wszystkie posty
Pokazywanie postów oznaczonych etykietą HTML. Pokaż wszystkie posty

09 lipca 2007

Funkcja do usuwania tagów HTML

KOD:

function DelHTML(s: string): string; { Usuwanie tagów HTML }

var

i: Word;

tag: Shortint;

begin

Result:='';

tag := 0;

for i := 1 to length(s) do

begin

if s[i] = '<' then Inc(tag); if tag = 0 then Result := Result + s[i]; if s[i] = '>' then Dec(tag);

end;

end;