如何将韩文转换成unicode码？

[netyou]

如何把
추가하나요
转换成
추가하나요

然后再把
추가하나요
转换成
추가하나요

[netyou]

看来还是需要自己解决了？

[一如当初]

以下代码XE测试通过，解码也简单，自己写吧

function ToKorean(Value: string): string;
var
  List: TStringList;
  I: Integer;
begin
  Result := '';
  List := TStringList.Create;
  List.Delimiter := ';';
  List.DelimitedText := Value;
  for I := 0 to List.Count - 2 do
    Result := Result + Char(StrToInt(ReplaceText(List[I], '&#', '')));
  List.Free;
end;

[netyou]

没有人知道还是没有人关心啊

[netyou]

[Quote=引用 5 楼 的回复:]
引用 4 楼 的回复:

谢谢楼上的，我希望是delphi7版本的，不是delphi xe版本的转换


你做这个东西，我建议你还是用 D2009 或之后的产品做吧!
[/Quote]
不过我的程序已经在delphi7上了，要换到d2009还比较麻烦啊

[netyou]

谢谢楼上的，我希望是delphi7版本的，不是delphi xe版本的转换

[lu仙深]

[Quote=引用 4 楼 的回复:]

谢谢楼上的，我希望是delphi7版本的，不是delphi xe版本的转换
[/Quote]

你做这个东西，我建议你还是用 D2009 或之后的产品做吧!

[「已注销」]

在msdn上搜索MultiByteToWideChar

[netyou]

知道的人不多啊

[netyou]

用不着MultiByteToWideChar这个函数