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;