Delphi escape/unescape编码


本文整理自网络,侵删。

 //作者0ak/lyris 
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;

相关阅读 >>

Delphi编程禁止用户关闭操作系统

Delphi fdmemtable内存表操作

Delphi 日期相关总结20190702完结篇

Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi 程序启动后隐藏窗体和任务栏

Delphi string.parse

Delphi gdi+基本用法总结

Delphi 得到 winrar 处理解压缩文件的返回值 ?

Delphi idhttp多线程下载

Delphi中treeview节点的遍历

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...