写一个程序,要把汉字转成网址里的%什么什么的
比如"小杰的博客"转成"%D0%A1%BD%DC%B5%C4%B2%A9%BF%CD"

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
mName:array[0..255] of byte;
display:string;
i:byte;
begin
zeromemory(@mName,256);
getwindowtextA(edit1.Handle ,@mName,sizeof(mName));
display:='';
i:=0;
while mName[i]<>0 do
Begin
display:=display+'%'+inttohex(mName[i],2);
inc(i);
End;
edit2.Text:=display;
end;

end.