SplitString -分割字符串函数

学习大师原创文档,请勿转载,侵权必究。

一个分割字符串函数,分隔符可以是一个字符,也可以是一个子串;

该函数从Xe2以后才有;


引用单元

     uses StrUtils;


函数原型


function SplitString(const S, Delimiters: string): TStringDynArray;

注意:TStringDynArray 其实就是 array of string;需要引用 System.Types;



第一个参数  S:要分割的字符串

第二个参数 Delimiters:分隔符,可以是字符串,也可以是单个字符;



运用实例1

procedure TForm2.Button2Click(Sender: TObject);

var

   AStr: String;

   StringDynArray: TStringDynArray;

begin

   AStr:='A,B,C,D';

   StringDynArray:= SplitString( AStr,',');

   Memo1.clear;

   for AStr in StringDynArray   do

   Memo1.Lines.add(AStr);

end;


分割结果如图:






运用实例2


分隔符为一个子串

procedure TForm2.Button3Click(Sender: TObject);

var

   AStr: String;

   StringDynArray: TStringDynArray;

begin

   AStr:='1:24323F],[101:682C2B],[102:111111],[103:5D8EC9],[104:669046],[105:AAAAAA],[106:964609],[107:205364';

   StringDynArray:= SplitString( AStr,'],[');

   Memo1.clear;

   for AStr in StringDynArray   do

   Memo1.Lines.add(AStr);

end;


分割结果如图:   

















联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678