急救！！！delphi7 下面对ucs-2编码如何进行转码？

Question

各位大虾，小弟在开发一个身份证的读取程序，但是读出来是用gb13000 ucs-2进行编码的，然后我在百度上找遍了都没有找到关于delphi7下的转码函数，请问这个有解吗？
谢谢!!!

Answer 1

function Ucs2ToGBK(const InValue: string): string;
　　var
　　 I: Integer;
　　begin
　　 Result := '';
　　 for I := 1 to length(InValue) div 2 - 1 do
　　 Result := Result + WideChar(StrToInt('$' + IntToHex(Ord(InValue[2 * I - 1]), 2)
　　 + IntToHex(Ord(InValue[2 * I]), 2)));
　　end;