Delphi里一般网址转换的函数！

uses HttpApp;

下面的未处理空格，数字和字母，请注意在应用时处理。

百度方式：

procedure TForm1.Button1Click(Sender: TObject);
const
      dd   =   '中国';
begin
      Edit1.Text   :=   HttpEncode(dd);
end;

谷歌方式：

procedure TForm1.Button2Click(Sender: TObject);
const
      dd   =   '中国';
begin
      Edit1.Text   :=   HttpEncode(ansitoutf8(dd));
end;