| end; function TSkyStringTokenizer.StringToCharArray(delim: string): TStringList; var sl: TStringList; I: Integer; begin sl := TStringList.Create(); for I := 1 to length(delim) do // Iterate begin sl.Append(copy(delim, i, 1)); end; // for result := sl; end; constructor TSkyStringTokenizer.Create(dataLine, delim: string); begin inherited Create(nil); self.init(dataLine, delim); end; constructor TSkyStringTokenizer.Create(dataLine: string); begin inherited Create(nil); self.init(dataLine, ' '); end; function TSkyStringTokenizer.SplitString(source, ch: string): tstringlist; var temp: string; //i: integer; sl: TStringList; index: integer; begin if ch = '' then ch := ' '; sl := TStringList.Create(); result := tstringlist.Create(); sl := self.StringToCharArray(ch); temp := ''; for Index := 1 to length(source) do // Iterate begin |
閺€鎯版閹存劕濮�閺屻儳婀呴弨鎯版>>
正在阅读：用Delphi实现StringTokenizer功能用Delphi实现StringTokenizer功能
2004-02-14 09:34
出处：CSDN
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
