escape/unescape编码的Delphi实现

最新推荐文章于 2023-08-23 10:12:30 发布

lyris

最新推荐文章于 2023-08-23 10:12:30 发布

阅读量3.3k

点赞数

分类专栏：编程手记文章标签： delphi integer string function javascript delete

本文链接：https://blog.youkuaiyun.com/lyris/article/details/594790

版权

编程手记专栏收录该内容

13 篇文章

订阅专栏

本文由Oak/lyris完成，首发于优快云，作者保留中文版权。
未经许可，不得使用于任何商业用途。
欢迎转载，但请保持文章及版权声明完整。
如需联络请发邮件：chenwentao@gmail.com

function Escape(Str: string): string;
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实现：）