字符分解

最新推荐文章于 2025-06-09 09:30:55 发布

原创最新推荐文章于 2025-06-09 09:30:55 发布 · 810 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #list

Delphi 专栏收录该内容

33 篇文章

订阅专栏

博客围绕字符串分割问题展开，给出将包含多个内容的字符串分解为单个内容的需求，并提供了两段代码示例。一段是去除单引号后用逗号分割字符串，另一段是用连字符分割字符串，均使用 TStringList 实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;