C++Builder相談室

uses
RegExp;

function CutTag(s: string): string;
var
r: TRegExp;
begin
r := TRegExp.Create('<.*?>');
while r.Substitute(s, '', rsContinue) do ;
r.Free;
Result := s;
end;