So implementieren Sie die StringTokenizer-Funktion mit Delphi:
Wir wissen, dass es in Java einen StringTokenizer gibt, der für die String-Verarbeitung sehr praktisch ist, aber diese Funktion wird in Delphi nicht bereitgestellt. Ich verweise auf die Delphi-Version und die C#-Version der Java-Sprache, um diese Funktion zu implementieren. Ich hoffe, Ihnen eine Bequemlichkeit zu bieten. Ich hoffe, Sie können mir weitere Ratschläge geben. [email protected] unit SkyStringTokenizer; {Autor der Zeichenfolgenanalyse und -verarbeitung: Zeng Qingsong Zeit: 21.02.2004 (Silvester 2003) } interface used SysUtils, Classes = interface function hasNext(): boolean; function next(): string; end; type TSkyStringTokenizer = class(TComponent, IIterator) private tokens: TStringList; index: integer; data: string; procedure init(dataLine: string; delim: function CharacterInTokens(ch: string; const sl: TStringList): boolean; function StringToCharArray(delim: string); SplitString(source, ch: string): Tstringlist; protected { Protected deklarationen } public { Öffentliche Deklarationen } Konstruktor create(dataLine: string); Konstruktor Create(dataLine: string); destructor destroy();override;