正则表达式 字符替换

找出一定的规律，把多余的字符替换掉就行了。参考：  
  R   :=   TRegExpr.Create;  
      try  
          R.ModifierI   :=   True;   //这一行是大小写不敏感的属性设置。参考：http://bbs.cnpack.org/viewthread.php?tid=3144
          R.Expression   :=   '<style>.*?</style>';  
          Memo1.text   :=   R.Replace(Memo1.Text,   '',   False);  
          R.Expression   :=   '<script>.*?</script>';  
          Memo1.text   :=   R.Replace(Memo1.Text,   '',   False);  
          Memo1.text   :=   StringReplace(Memo1.Text,   '&nbsp;',   '',   [rfReplaceAll]);  
          memo1.text   :=   RegExpr.ReplaceRegExpr('<.*?>',   Memo1.Text,   '',   False);  
   
      finally  
          R.Free;  
      end;