如何用Delphi實(shí)現(xiàn)StringTokenizer功能：

　　我們知道Java中有StringTokenizer，對(duì)于字符串處理都非常的方便，但是Delphi中沒(méi)有提供該功能，我參考Java語(yǔ)言實(shí)現(xiàn)此功能的Delphi版本和C#版本。希望給大家提供一個(gè)方便。希望多多指教。zengqingsong@sohu.com 　　　　unit SkyStringTokenizer; 　　{字符串分析處理類(lèi)　　作者：曾青松　　時(shí)間：2004/2/21(2003年除夕) 　　} 　　　　interface 　　　　uses 　　SysUtils, Classes; 　　type 　　IIterator = interface 　　function hasNext(): boolean; 　　function next(): string; 　　end; 　　type 　　TSkyStringTokenizer = class(TComponent, IIterator) 　　private 　　tokens: TStringList; 　　index: integer; 　　data: string; 　　delimiter: string; 　　procedure init(dataLine: string; delim: string); 　　function CharacterInTokens(ch: string; const sl: TStringList): boolean; 　　function StringToCharArray(delim: string): TStringList; 　　function SplitString(source, ch: string): Tstringlist; 　　　　protected 　　{ Protected declarations } 　　public 　　{ Public declarations } 　　constructor create(dataLine: string); overload; 　　constructor Create(dataLine: string; delim: string); overload; 　　destructor destroy();override; 　　function hasNext(): boolean; 　　function next(): string;