如何用Delphi實作StringTokenizer功能：
我們知道Java中有StringTokenizer，對於字串處理都非常的方便，但是Delphi中沒有提供該功能，我參考Java語言實作此功能的Delphi版本和C#版本。希望提供一個方便給大家。希望多多指教。 [email protected] unit SkyStringTokenizer; {字串分析處理類別作者：曾青鬆時間：2004/2/21(2003年除夕) } interface uses SysUtils, Classes; type IIterator = interface function hasNext(): booNext(unction next; 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; sl: string; 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); load; constructor Create(dataLine: string; string); ; destructor destroy();override; function hasNext(): boolean; function next(): string;