s := Memo1.Lines.Text;
s := StringReplace(s, '<b>', '[bold]', [rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s, '</b>', '[/bold]', [rfReplaceAll, rfIgnoreCase]);
Memo2.Lines.Text := s;
s := StringReplace(s, '<b>', '[bold]', [rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s, '</b>', '[/bold]', [rfReplaceAll, rfIgnoreCase]);
Memo2.Lines.Text := s;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货