Bir kaynak koddan HTML etiketlerini ayıklamak için bu fonksiyon kullanılabilir.

function StripHTMLTags(inStr: String): String;
var
i: Integer;
inTag: Boolean;
outStr: String;
begin
i := 1;
inTag := False;
while (i <= Length(inStr)) do
begin

if (Copy(inStr, i, 1) = ‘>’) then
begin
inTag := False;
Inc(i);
end;

if (Copy(inStr, i, 1) = ‘<‘) then
inTag := True;

if (not inTag) then
outStr := outStr + Copy(inStr, i, 1);

Inc(i);
end;
result := outStr;

end;

Yazan: Tankado

CEVAP VER

This site uses Akismet to reduce spam. Learn how your comment data is processed.