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