列举一下
猴子 %BA%EF%D7%D3
猪头 %D6%ED%CD%B7
老大! %C0%CF%B4%F3%21特殊的:各种字符都有
我有13块 %CE%D2%D3%D013%BF%E9
猴子 %BA%EF%D7%D3
猪头 %D6%ED%CD%B7
老大! %C0%CF%B4%F3%21特殊的:各种字符都有
我有13块 %CE%D2%D3%D013%BF%E9
解决方案 »
- delphi运用webbroser连续focus后光标闪动
- delphi如何向Access写入布尔值和时间值
- 庆祝CSDN挂后重生,饭后结帖
- 如何捕获控件的消息?(在线等,解决马上给分)
- 如何设置使得TComboBox下拉列表框不能下拉(不能更改,相当与ReadOnly为True) 200410
- 得到Access库表中的字段
- 请问谁有,或者哪里可以下载sql server 2000 开发版
- 关于文字大小的问题?
- delphi+oracle8.1.6连接问题
- 在一个窗口中设置一个按钮,按此按钮打开另一个窗口,如何实现?谢了
- 扯蛋的问题,关于 DBImage......???????
- 怎样提取一个Exe文件的字符串资源?
你处理你的字符串,每次1个字节,发现大于127就输出%ce这样的,不大于127就原样输出
const
UnsafeChars = ['*', '#', '%', '<', '>', '+', ' ']; {do not localize}
var
i: Integer;
begin
Result := ''; {Do not Localize}
for i := 1 to Length(ASrc) do begin
if (ASrc[i] in UnsafeChars) or (ASrc[i] >= #$80) or (ASrc[i] < #32) then begin
Result := Result + '%' + IntToHex(Ord(ASrc[i]), 2); {do not localize}
end else begin
Result := Result + ASrc[i];
end;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:= UTF8Encode('猪头');
end;
var
st:string;
begin
nmurl1.InputString:='猴子';
st:nmurl1.Decode:
end;