Como implementar a função StringTokenizer com Delphi:
Sabemos que existe StringTokenizer em Java, que é muito conveniente para processamento de strings, mas esta função não é fornecida em Delphi. Refiro-me à versão Delphi e à versão C# da linguagem Java para implementar esta função. Espero lhe proporcionar uma comodidade. Espero que você possa me dar mais conselhos. [email protected] unidade SkyStringTokenizer; {autor da classe de análise e processamento de strings: Zeng Qingsong Horário: 21/02/2004 (véspera de Ano Novo de 2003) } interface usa SysUtils, Classes; função next(): string; tipo final TSkyStringTokenizer = class(TComponent, IIterator) tokens privados: TStringList; índice: dados inteiros: string; delimitador: string procedimento init(dataLine: string; delim: string): função TStringList; SplitString (fonte, ch: string): Tstringlist; protected { Declarações protegidas } public { Declarações públicas } construtor create (dataLine: string); construtor Create(dataLine: string; delim: string); destruidor destroy();override;