Delphi 7下分隔逗号字符串！

最新推荐文章于 2024-08-07 19:10:01 发布

easyboot

最新推荐文章于 2024-08-07 19:10:01 发布

阅读量4.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi integer function

本文链接：https://blog.youkuaiyun.com/easyboot/article/details/7563853

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一种使用 DelimitedText 属性将包含逗号的字符串分割成多个子串的方法，并提供了一个 DelimitByComma1 函数的具体实现，该函数可以根据指定的位置返回对应的子字符串。

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

例如Str='aaa,bbb,ccc'; 如果字符串中有空格也会被当作分隔符。所以如果你的字符串中存在空格，则你需要先将空格替换掉，处理完后在替换回来。
// DelimitByComma1(str,0) ='aaa'
// DelimitByComma1(str,1) ='bbb'

function DelimitByComma1(const Str: string;Postion: integer): string;
var
  ts:Tstringlist;   
begin
  ts := Tstringlist.Create;
  ts.Delimiter:=',';
  ts.DelimitedText:=Str;
  Result := ts.Strings[Postion];
  ts.Free;
 
end;