来自:http://www.aspww.cn/View/12022801.aspx ------------------------------------------------------------ var aStr: String; begin aStr := 'This is a book, not a pen!'; ShowMessage(StringReplace (aStr, 'a', 'two', []));//This is two book, not a pen!只替换了第…