Delphi 实现PHP的URLEncode编码效果

本文整理自网络，侵删。

 
function URLEncode(const aData: AnsiString): AnsiString;
const
      Chars: Array [0..18] of AnsiChar = (#$25, #$21, #$2A, #$27, #$28, #$29,
                                          #$3B, #$3A, #$40, #$26, #$3D, #$2B,
                                          #$24, #$2C, #$2F, #$3F, #$23, #$5B,
                                          #$5D);
var
     sData: String;
     i1: DWORD;
begin
     sData := String(aData);
     for i1 := Low(Chars) to High(Chars) do
     sData := StringReplace(sData, String(Chars[i1]), '%' + IntToHex(Ord(Chars[i1]), 2), [rfReplaceAll, rfIgnoreCase]);
     result := AnsiString(sData);
end;
 

相关阅读 >>

Delphi四舍五入问题解决

Delphi 调试ios时出现 please specify exact device preset uuid

Delphi image 直接加载资源文件

Delphi createmessagedialog

Delphi ini文件操作 tinifile、tmeminifile

Delphi中实现控件的拖拽

Delphi idftp ditdirectory未定义

Delphi 下载网页

Delphi��image存入读取mysql数据库

Delphi 获取其它软件的tlistbox句柄，怎么取得listbox中的数据

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

转载请注明出处：木庄网络博客 » Delphi 实现PHP的URLEncode编码效果