Как реализовать функцию StringTokenizer с помощью Delphi:
Мы знаем, что в Java есть StringTokenizer, который очень удобен для обработки строк, но эта функция не предусмотрена в Delphi. Для реализации этой функции я ссылаюсь на версию Delphi и версию языка Java C#. Надеюсь предоставить вам удобство. Надеюсь, вы дадите мне еще совет. [email protected] unit SkyStringTokenizer {Автор класса анализа и обработки строк: Цзэн Цинсонг Время: 21 февраля 2004 г. (канун Нового года, 2003 г.) } интерфейс использует SysUtils, Classes; type IIterator = функция интерфейса hasNext(): boolean; функция следующая (): строка; тип TSkyStringTokenizer = класс (TComponent, IIterator) частные токены: TStringList; индекс: целое число; разделитель: строка; процедура init (dataLine: строка; разделитель: строка); функция CharacterInTokens (ch: строка; const sl: TStringList): логическое значение; функция StringToCharArray (delim: string): функция TStringList; SplitString(source, ch: string): Tstringlist; protected {Защищенные объявления} public {Общественные объявления} конструктор create(dataLine: строка); конструктор Create(dataLine: string; delim: string); деструктор уничтожить(); переопределить; функция hasNext(): функция next(): строка;