字符分解

str = ''主办一','主办二''
如何能把它分解为
str1 = 主办一
str2 = 主办二
不知代码该怎么写？

----------------------

var
  S: string;
  TS: TStrings; //最好不要用string数组，用list更加方便
begin
  S := '''主办一'',''主办二''';
  S := StringReplace(S, '''', '', [rfReplaceAll]);  // 去除字符串中的单引号
  TS := TStringList.Create;
  TS.Delimiter := ',';                              // 指定分割符为','
  TS.DelimitedText := Trim(S);                      // 分割字符串
  ShowMessage(TS.Strings[0]);
  ShowMessage(TS.Strings[1]);
end;
**不能有空格

－－－－－－－－－－－－－－

var
  S: string;
  TS: TStringlist;
begin
  S := 'q-少';
  //S := StringReplace(S, '''', '', [rfReplaceAll]);  // 去除字符串中的单引号
  TS := TStringList.Create;
  TS.Delimiter := '-';                              // 指定分割符为','
  TS.DelimitedText := Trim(S);                      // 分割字符串
  ShowMessage(TS.Strings[0]);
  ShowMessage(TS.Strings[1]);
  ts.Free;
end;