{目的，取得下面字符串中的每一项内容，如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;