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 ansi与unicode编码互转

Delphi整理二（object pascal语言）

Delphi监视注册表

Delphi system 提供的编译期函数

Delphi 判断两个时间差是否在一个指定范围内

Delphi 隐藏文件夹

Delphi 调整应用程序内存大小

Delphi 制作一个内网传播的程序

Delphi测试数据库连接时间

Delphi点击网页弹出的alert对话框的确定按钮

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

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