用Delphi实现StringTokenizer功能

1 2 3 4 5 下一页

　　我们知道Java中有StringTokenizer，对于字符串处理都非常的方便，但是Delphi中没有提供该功能，我参考Java语言实现此功能的Delphi版本和C#版本。希望给大家提供一个方便。希望多多指教。zengqingsong@sohu.com
　　
　　unit SkyStringTokenizer;
　　{字符串分析处理类
　　作者：曾青松
　　时间：2004/2/21(2003年除夕)
　　}
　　
　　interface
　　
　　uses
　　SysUtils, Classes;
　　type
　　IIterator = interface
　　function hasNext(): boolean;
　　function next(): string;
　　end;
　　type
　　TSkyStringTokenizer = class(TComponent, IIterator)
　　private
　　tokens: TStringList;
　　index: integer;
　　data: string;
　　delimiter: string;
　　procedure init(dataLine: string; delim: string);
　　function CharacterInTokens(ch: string; const sl: TStringList): boolean;
　　function StringToCharArray(delim: string): TStringList;
　　function SplitString(source, ch: string): Tstringlist;
　　
　　protected
　　{ Protected declarations }
　　public
　　{ Public declarations }
　　constructor create(dataLine: string); overload;
　　constructor Create(dataLine: string; delim: string); overload;
　　destructor destroy();override;
　　function hasNext(): boolean;
　　function next(): string;

上一篇： 在Delphi中使用电子邮件
下一篇： Delphi开发98屏幕保护预览程序

1 2 3 4 5 下一页

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!