1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
grail_ 2003-02-06
- 打赏
- 举报
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[i]='>' then
begin
While Str[i+1]<>'<' do
begin
Inc(i);
if i > StrL Then Break;
NewStr := NewStr + Str[i];
end;//End While
end;//End if
end;//end While
Result := NewStr;
end;
var
StrL, i : Integer;
NewStr : String;
begin
StrL := StrLen(PChar(Str));
i := 0;
While i < StrL do
begin
Inc(i);
if Str[i]='>' then
begin
While Str[i+1]<>'<' do
begin
Inc(i);
if i > StrL Then Break;
NewStr := NewStr + Str[i];
end;//End While
end;//End if
end;//end While
Result := NewStr;
end;
