StringReplace应用

最新推荐文章于 2025-02-03 07:26:06 发布

原创最新推荐文章于 2025-02-03 07:26:06 发布 · 482 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #string #平台

Delphi 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种解决Delphi平台下自定义字符串解析问题的方法，通过使用TStrings类实现了字符串中分隔符的替换和解析，输出了有效分隔后的各个元素。

公司的平台不支持Delphi自带的ExtractString，自己瞎捣鼓了一个。

  const s1 = '4;1;3';

  procedure ExtractString(const str: String);
  var sl: TStrings;
      i: Integer;
  begin
    str:=StringReplace(str, ';', #13, [rfReplaceAll]);
    sl:=TStringList.Create;
    sl.Text:=str;
    for i:=0 to sl.Count-1 do
      Showmessage(sl[i]);
    sl.Free;
  end;

  ExtractString(sl);

输出结果4,1,3