本文整理自网络,侵删。
function SplitString(Source, Deli: string): TStringList; //把字符串分割成字符串组var EndOfCurrentString: byte; StringList: TStringList;begin StringList := TStringList.Create; while Pos(Deli, Source) > 0 do begin EndOfCurrentString := Pos(Deli, Source); StringList.add(Copy(Source, 1, EndOfCurrentString - 1)); Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString); end; Result := StringList; StringList.Add(Source);end;
简单用法:procedure TForm1.FormCreate(Sender: TObject);beginCaption:=SplitString('123==456==789','==').Strings[1];end;
相关阅读 >>
Delphi idhttpserver实现webservice
Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式
Delphi xe 泛型数组和splitstring处理数据
Delphi 设置webbrowser 代理服务器 与 useragent
更多相关阅读请进入《Delphi》频道 >>