GB2312的字符如何转化成UTF_8的字符,请大家帮帮我写一个DEMO程序，谢谢大家?

Question

GB2312的字符如何转化成UTF_8的字符,请大家帮帮我写一个DEMO程序，谢谢大家?

Answer 1

Function Url2UTF8(surl:string):string; //编码网址
var
  I:integer;
  S:string;
  tems:string;
begin
  Result:='';
  tems:='';
  s:=trim(surl);
  for I := 1 to Length(S) do
   begin
      if ord(S[i])>128 then
         begin
            temS := temS + '%' + IntToHex(Ord(S[I]), 2);
         end
      else
            temS:=temS+S[i];
   end;
  Result:=temS;
end;这是我编码网址的函数,应改满足你的要求!!

Answer 2

如果只是要将GB2312的字符转化成UTF_8的字符
var
  s:string;
  s1:utf8string;
begin
  s:='你好';
  s1:=ansitoutf8(s);
end;
如果要转成URL的utf-8,可用TNMURL构件procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  s1:utf8string;
begin
  s:='你好';
  s1:=ansitoutf8(s);
  NMURL1.InputString:=s1;
  edit1.Text:=NMURL1.Encode ;
end;