怎么把"鞋子"两个字转化成"%D0%AC%D7%D3"样式?哪个函数呀?

chinavane 2005-02-22 02:37:42
delphi中怎么将"鞋子"两字转化成"%D0%AC%D7%D3"样式呢?在其它程序里一般情况是UrlEncode或是类似的内容,delphi有何类似函数?
...全文
227 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
ideacao 2005-02-22
  • 打赏
  • 举报
回复
UP
王集鹄 2005-02-22
  • 打赏
  • 举报
回复
Format中两个%代表一个%
ShowMessage(Format('%%%.2x%%%.2x%%%.2x%%%.2x', [Ord('鞋子'[1]), Ord('鞋子'[2]), Ord('鞋子'[3]), Ord('鞋子'[4])]));

//参考如下代码
function UrlEncode(mUrl: string): string;
var
I: Integer;
begin
Result := '';
for I := 1 to Length(mUrl) do
begin
case mUrl[I] of
#33..#126: Result := Result + mUrl[I];
else Result := Result + '%' + IntToHex(Ord(mUrl[I]), 2);
end;
end;
end; { UrlEncode }

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := UrlEncode('鞋子')
end;
Frank.WU 2005-02-22
  • 打赏
  • 举报
回复
“鞋子”結果為:BE%63%A4%6C% 和搜索引擎得出來的結果不一樣:%D0%AC%D7%D3
cdsgajxlp 2005-02-22
  • 打赏
  • 举报
回复
showmessage(
'%'+format('%s', [inttohex(ord('鞋子'[1]),1)])+
'%'+format('%s', [inttohex(ord('鞋子'[2]),1)])+
'%'+format('%s', [inttohex(ord('鞋子'[3]),1)])+
'%'+format('%s', [inttohex(ord('鞋子'[4]),1)]))
laiqinghe 2005-02-22
  • 打赏
  • 举报
回复
showmessage(format('%s', [inttohex(ord('鞋子'[1]),1)])+'%'+
format('%s', [inttohex(ord('鞋子'[2]),1)])+'%'+
format('%s', [inttohex(ord('鞋子'[3]),1)])+'%'+
format('%s', [inttohex(ord('鞋子'[4]),1)])+'%')

补充一下 其实和1 楼完全是一样的
laiqinghe 2005-02-22
  • 打赏
  • 举报
回复
up
todouwang 2005-02-22
  • 打赏
  • 举报
回复
up
jinjazz 2005-02-22
  • 打赏
  • 举报
回复
showmessage(format('%s,%s,%s,%s', [inttohex(ord('鞋子'[1]),1),
inttohex(ord('鞋子'[2]),1), inttohex(ord('鞋子'[3]),1),
inttohex(ord('鞋子'[4]),1)]))

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧