Description: 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
To Search:
File list (Check if you may need any files):
USplite.pas
Download