Delphi 7下分隔逗号字符串！

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

原创最新推荐文章于 2024-08-07 19:10:01 发布 · 4.7k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #function

Delphi 专栏收录该内容

54 篇文章

订阅专栏

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

例如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;