var str: string; ss: TStringList; begin ss := TStringList.Create; str := ‘110,170>155,170>185,158>235,126>241,99>94,113>118,150>36,93>74,191>97,225‘; ss.CommaText := str.Replace(‘,‘, ‘*‘).Replace(‘>‘, ‘,‘); str := ss[0].Replace(‘*‘, ‘,‘); ShowMessage(str) end;
原文：http://www.cnblogs.com/studypanp/p/4921503.html