用接口实现的字符串分割函数，示例：

var

A: ISplite

I: Integer

begin

A := Splite( 1,2,3 , , )

for I := 0 to A.Count do

ShowMessage(A[I])

A.DoSplite( a b c , )

for I := 0 to A.Count do

ShowMessage(A[I])

end -Split string using interface functions, example: var A: ISplite　I: Integer　begin A: = Splite (' 1, 2,3' ,' ,' )　for I: = 0 to A. Count do ShowMessage (A [I])　A. DoSplite (' a　b　c' ,'　' )　for I: = 0 to A. Count do ShowMessage (A [I])　end