怎样使用utf8tounicode,UnicodeToUtf8 这些函数,最好有例子

Question

怎样使用utf8tounicode,UnicodeToUtf8 这些函数,最好有例子

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Dest:Pchar;
  Unic:PWidechar;
  str:string;
  NewDest:PwideChar;
begin
  GetMem(Unic,100);
  try
    GetMem(Dest,100);
    UnicodeToUtf8(Dest,StringToWideChar('测试字符串', Unic, 100),100);
    try
      str:=StrPas(Dest);
      ShowMessage('utf8的编码为:'+Str);
      GetMem(NewDest,100);
      try
        Utf8toUnicode(NewDest,Dest,100);
        ShowMessage('原始的字符为:'+WideCharToString(NewDest));
      finally
        FreeMem(NewDest);
      end;
    finally
      FreeMem(Dest);
    end;
  finally
    FreeMem(Unic);
  end;
end;