escape/unescape编码的Delphi实现
2006-02-08 23:54
295 查看
版权声明: 本文由Oak/lyris完成,首发于CSDN,作者保留中文版权。 未经许可,不得使用于任何商业用途。 欢迎转载,但请保持文章及版权声明完整。 如需联络请发邮件:chenwentao@gmail.com |
var
I: Integer;
begin
Result := '';
for I := 1 to Length(Str) do
Result := Result + '%' + IntToHex(Ord(Str[I]), 2);
end;
function CharToInt(C: char): Integer;
begin
if Ord((C)) >= 65 then
Result := 10 + Ord(C) - 65
else
Result := Ord(C) - 48;
end;
function HexToInt(Str: string): longint;
var
I: Integer;
p1: array[0..1] of Char;
begIn
Result := 0;
Str := Trim(Str);
for I := 1 to length(Str) do
begIn
StrPcopy(p1, Copy(Str, I, 1));
Result := Result * 16 + CharToInt(p1[0]);
end;
end;
function UnEscape(Str: string): string;
begin
Result := '';
while Length(Str) >= 3 do
begin
Str[1] := '#';
Result := Result + Chr(HexToInt(Copy(Str, 1, 3)));
Delete(Str, 1, 3);
end;
end;
功能不用赘述,JavaScript escape/unescape编码的Delphi实现:)
相关文章推荐
- PHP实现类似JAVASCRIPT中的escape()和unescape()编码.
- javascript escape/unescape编码的Java实现
- JavaScript escape/unescape编码的Java实现
- JavaScript escape/unescape编码的Java实现
- JavaScript escape/unescape编码的Java实现[摘]
- 用php实现js中escape和unescape
- c# 实现javascript中的escape和unescape
- escape编码与unescape解码汉字出现乱码的解决方法
- escape unescape的php下的实现方法
- PHP实现Javascript的escape(),unescape()的方法
- 转义分为escapeHTML和unescapeHTML,先看两个函数的实现。
- VBScript实现的escape和unescape功能函数
- js,java实现escape()和unescape()函数解决以给方式提交中中文参数问题
- JavaScript escape/unescape 编码的 Java 实现
- PHP实现JavaScript的escape和unescape
- java实现的escape和Unescape
- C#实现JS脚本的escape()和unescape()
- escape和unescape给字符串编码
- BASE64编码在C#、Delphi和JavaScript中的实现
- php实现escape和Unescape方法