uses HTTPApp;
...
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.text:=HTTPEncode(UTF8Encode('明信片'));
end;
delphi utf8转码
最新推荐文章于 2017-12-23 14:04:00 发布
uses HTTPApp;
...
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.text:=HTTPEncode(UTF8Encode('明信片'));
end;