StringReplace应用

superfireware

于 2012-09-19 14:55:21 发布

阅读量469

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi integer string 平台

本文链接：https://blog.youkuaiyun.com/superfireware/article/details/7996022

Delphi 专栏收录该内容

8 篇文章

订阅专栏

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

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

公司的平台不支持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