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 issameday、istoday - 判断是不是同一天、判断是不是今天

Delphi关闭程序close,application.terminate与halt区别

Delphi ioutils单元3查找并搜索文件夹信息

Delphi2010 关于record类型rtti反射的用途和方法

Delphi ioutils 单元(5): tdirectory.tdirectory 的其他功能

Delphi 日期加减

Delphi控件安装与删除

Delphi copyfileprogressbar 拷贝文件显示进度条

Delphi线程中动态创建ado控件

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

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