function Html2Text(Str : String):String;
var
StrL, i : Integer;
NewStr : String;
begin
StrL := StrLen(PChar(Str));
i := 0;
While i < StrL do
begin
Inc(i);
if Str='>' then
begin
While Str[i+1]<>'<' do
begin
Inc(i);
if i > StrL Then Break;
NewStr := NewStr + Str;
end;//End While
end;//End if
end;//end While
Result := NewStr;
end;
或者用TWebBrowser读入Html文件，至于得到文本以前的讨论太多了就不废话了。
