Delphi 对应JAVA的URL编码处理

//引用delphi自带的HTTPApp单元

procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
begin
s := 'abcdefg';
s := HttpEncode(UTF8Encode(s));
showmessage(s);
end;