Comment implémenter la fonction StringTokenizer avec Delphi :
Nous savons qu'il existe StringTokenizer en Java, ce qui est très pratique pour le traitement des chaînes, mais cette fonction n'est pas fournie dans Delphi, je me réfère à la version Delphi et à la version C# du langage Java pour implémenter cette fonction. J'espère vous offrir une commodité. J'espère que vous pourrez me donner plus de conseils. [email protected] unité SkyStringTokenizer ; {Auteur de la classe d'analyse et de traitement de chaînes : Zeng Qingsong Heure : 2004/2/21 (Nouvel An, 2003) } l'interface utilise SysUtils, Classes type IIterator = fonction d'interface hasNext() : booléen ; fonction next () : chaîne ; fin ; tapez TSkyStringTokenizer = class(TComponent, IIterator) jetons privés : TStringList ; index : entier ; données : chaîne ; délimiteur : chaîne ; procédure init(dataLine : chaîne ; delim : chaîne) ; fonction CharacterInTokens(ch : chaîne ; const sl : TStringList) : fonction StringToCharArray(delim : chaîne) : fonction TStringList ; SplitString(source, ch: string): Tstringlist; protected { Déclarations protégées } public { Déclarations publiques } constructor create(dataLine : chaîne); surcharge; constructeur Create(dataLine: chaîne; delim: chaîne surcharge; destruction();override function hasNext(): fonction next(): chaîne;