Delphi获取URI的查询参数

本文整理自网络，侵删。

 
function ExtractURIQueryString(const URI: string): string;var  QueryStart: Integer;  QueryEnd: Integer;begin  Result := '';  QueryStart := SysUtils.AnsiPos('?', URI);  if QueryStart = 0 then    Exit;  Inc(QueryStart);  QueryEnd := SysUtils.AnsiPos('#', URI);  if QueryEnd < QueryStart then    QueryEnd := Length(URI)  else    Dec(QueryEnd);  Result := Copy(URI, QueryStart, QueryEnd - QueryStart + 1);end;//该代码片段来自于: http://www.sharejs.com/codes/delphi/2260
 

相关阅读 >>

Delphi 获取文件名不带扩展名

Delphi 简单实习窗体靠边隐藏

老外写的在桌面添加快捷方式（Delphi xe5 android）

Delphi xe 应用程序横竖屏设置

Delphi @ 与 ^ 运算符

Delphi 复制拷贝文件目录函数

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi 无dll版下载者

Delphi 检查输入的ip地址串是否合法

Delphi idhttp post 提交 json

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi获取URI的查询参数