文件名称:USplite
介绍说明－－下载内容均来自于网络，请自行研究使用
用接口实现的字符串分割函数，示例：
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
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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
USplite.pas