比如 Unicode 的 “玩” 字 Unicode 编码 为29609 如何转成 ANSI 的数字编码 我用的是 DLEPHI
求给出 转成 Unicode 转成 ansi 数字编码 的方法

var
aSourceLength, aDestLength: Integer;
begin
aSourceLength := Length(S);
if aSourceLength = 0 then
Result := ''
else
begin
aDestLength := LocaleCharsFromUnicode(936, 0, PWideChar(S), aSourceLength, nil, 0, nil, nil);
SetLength(Result, aDestLength);
if aDestLength > 0 then
LocaleCharsFromUnicode(936, 0, PWideChar(S), aSourceLength, PAnsiChar(@Result[1]), aDestLength, nil, nil);
end;
end;

TEncoding.Ansi.GetBytes('玩')