Pokazywanie postów oznaczonych etykietą HTML. Pokaż wszystkie posty
Pokazywanie postów oznaczonych etykietą HTML. Pokaż wszystkie posty
11 grudnia 2011
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;
Subskrybuj:
Posty (Atom)