小弟寫了一段如下, 您參考一下做法是原要轉換的字串丟在 Memo1 轉換的結果在 Memo2: var i, iPosStart, iPosEnd: integer; sTmp: string; begin for i := 0 to Memo1.
www.programmer-club.com.tw