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
