16,749
社区成员
发帖
与我相关
我的任务
分享
function AnalyzedHtml(vStr :String):String;
var
i : integer;
tmpStr : String;
begin
Result := '';
if Trim(vstr) = '' then Result := ''
else begin
while pos('>',vStr) <> 0 do begin
if pos('<',vStr) =1 then vStr := copy(vStr,pos('>',vstr)+1,length(vstr))
else if pos('<',vStr) > 1 then begin
vStr := copy(vStr,0,pos('<',vStr)-1);
Result := vStr;
break;
end;
end;
end;
end;