Delphi中的一些字符串分割的函数收集

最新推荐文章于 2017-05-26 16:52:00 发布

liswa

最新推荐文章于 2017-05-26 16:52:00 发布

阅读量1k

点赞数

分类专栏： delphi 文章标签： delphi duplicates function integer string vb

本文链接：https://blog.csdn.net/liswa/article/details/1096014

版权

delphi 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

找了几个，不过我刚才只使用了第一个，另外有些不小心关掉了，因此其实只有两个，以后可能的话再收集起来。

1、使用起来代码最短的。

http://beta.xmu.cn/modules.php?op=modload&name=News&file=article&sid=3&mode=thread&order=0&thold=0

dephi中没有象VB中的split函数,但是使用TStringList类的 Delimter 和 DelimtedText 两个属性可以很容易的把字符串分割,然后放入 TStrings里面.

例:
s:='aa,bb,cc,dd'
ts := TStringList.Create
ts.Delimter := ','
ts.DelimtedText := s
//这时 ts里面就存放了 aa bb cc dd 这四个strings了. 你只要通过 ts[0]就可以取第一个数据
2、自定义函数，分割后其实还是保存在TStringList中

http://www.pconline.com.cn/pcedu/empolder/gj/delphi/0409/453639.html

　　function SplitEx(const Str {需要拆分的文章}, Delimiters {拆分关键字,回车.?!等}: string): TStringList;
　　var
　　ss: WideString;
　　i, St: integer;
　　function IsDelimiter(const Delimiters, c: string): Boolean;
　　begin //判断是否为拆分关键字
　　result := StrScan(PChar(Delimiters), c[1]) <> nil;
　　end;
　　begin
　　Result := TStringList.Create;
　　with Result do
　　begin
　　Clear; Sorted := True; Duplicates := dupIgnore;
　　end;
　　if Length(Str) < 1 then exit;
　　ss := Str; //双字符支持，纯英文可以去掉
　　St := -1;
　　for i := 1 to Length(ss) do
　　if IsDelimiter(Delimiters, ss[i]) then
　　if St <> -1 then
　　begin
　　Result.Add(Trim(Copy(ss, St, i - St)));
　　St := -1;
　　end
　　else
　　if St = -1 then St := i;
　　if St <> -1 then Result.Add(Copy(ss, St, Length(Str)));
　　end;