delphi TString使用（取有规律的字符串中某一项内容）

{目的，取得下面字符串中的每一项内容，如s：='a,b,c,d',要去的用逗号隔开的每一项内容
这时采用Tstring，会方便很多，TString是继承TStringList带有List所有属性。
}

var
str: string;
ss: TStringList;
begin
str := 'a,b,c,d';
ss := TStringList.Create;  // 这里需要用TStringList创建
ss.CommaText := str;
ShowMessage(ss[0]);       // a       下标从0开始
end;

// 再比如复杂点的结构，用替换也能实现
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);　　　　　　　　　　　　　　　　　　　　　　　　// 110,170
end;