Delphi で StringTokenizer 関数を実装する方法:
Java には文字列処理に便利な StringTokenizer があるのは知っていますが、Delphi にはこの機能が提供されていないので、この機能を実装するために Delphi 版と C# 版の Java 言語を参照しました。利便性を提供したいと考えています。さらにアドバイスをいただければ幸いです。 [email protected] ユニット SkyStringTokenizer; {文字列解析および処理クラス作成者: Zeng Qingsong 時刻: 2004/2/21 (2003 年の大晦日) } インターフェイスは SysUtils、Classes を使用します = インターフェイス関数 hasNext(): boolean;関数 next (): 文字列; タイプ TskyStringTokenizer = class(TComponent, IIterator) プライベート トークン: TStringList;インデックス: 整数; データ: 文字列; 区切り文字: 文字列; 関数 CharacterInTokens(ch: 文字列; const sl: TStringList): 関数 StringToCharArray(delim: 文字列); SplitString(source, ch: string): Tstringlist; protected { 保護された宣言 } public { パブリック宣言 } コンストラクター create(dataLine:文字列); コンストラクター Create(dataLine: 文字列; delim: 文字列); 関数 hasNext(): 文字列;