求二个函数实现简体中文和繁体中文相互转换

Question

求二个函数实现简体中文和繁体中文相互转换，
如简体中文转换到繁体中文：广东 -->廣東
  繁体中文转换到简体中文：廣東 -->广东

Answer 1

http://www.phpe.net/articles/71.shtml
我没试，你看一下吧

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  S, R: String;
  Strs: TStrings;
  I: Integer;
  D: DWord;
  W: WideChar;
begin
  S := '#27589#25104#35069#21697#26377#38480#20844#21496';
  Delete(S, 1, 1);
  Strs := TStringList.Create;
  Strs.Text := StringReplace(S, '#', #13, [rfReplaceAll]);
  for I := 0 to Strs.Count-1 do
  begin
    D := StrToIntDef(Strs[I], 0);
    Move(D, W, SizeOf(Word));
    R := R + W;
  end;
  ShowMessage(R);    //毅成製品有限公司
  Strs.Free;
end;