求使用Delphi7 实现下面的效果。。？？？？？
//函数:functionToUTF8Encode(str:string):string;varb:Byte;beginforbinBytesOf(UTF8Encode(...
//函数:
function ToUTF8Encode(str: string): string;
var
b: Byte;
begin
for b in BytesOf(UTF8Encode(str)) do
Result := Format('%s%%%.2x', [Result, b]);
end;
//测试:
var
str: string;
begin
str := '万一';
str := ToUTF8Encode(str);
ShowMessage(str); //%E4%B8%87%E4%B8%80
end; 展开
function ToUTF8Encode(str: string): string;
var
b: Byte;
begin
for b in BytesOf(UTF8Encode(str)) do
Result := Format('%s%%%.2x', [Result, b]);
end;
//测试:
var
str: string;
begin
str := '万一';
str := ToUTF8Encode(str);
ShowMessage(str); //%E4%B8%87%E4%B8%80
end; 展开
2个回答
展开全部
你是要转为url编码是么，如果是试试我这个函数
function URLEncode(US: string):string;
var
i: integer;
begin
Result := '';
if US <> '' then
begin
US := AnsiToUtf8(US);
for i := 1 to Length(US) do
if Ord(US[i]) >= 127 then
Result := Result + '%' + IntToHex(Ord(US[i]), 2)
else
Result := Result + US[i];
end;
end;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你这个是需要实现什么效果~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
