说明：  用接口实现的字符串分割函数，示例： 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 )