炙 炙天使 Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-27 #1 我们单位需要读取人员信息，采用了2代身份证读取，结果照片能读出来，可是生成的txt文件是unicode的，看起来全部是乱码。 怎么办？
Z Z1980 Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-27 #5 function Ucs2ToString(UCS2: String): string; var i: integer; Str: String; begin i := 1; Result := ''; while i < Length(UCS2) do begin Str := UCS2+UCS2[i+1]; Result := Result+WideCharToString(pWideChar(Str)); Inc(i,2); end; end; 应该可以的，前两天做的Demo里抓出来的
function Ucs2ToString(UCS2: String): string; var i: integer; Str: String; begin i := 1; Result := ''; while i < Length(UCS2) do begin Str := UCS2+UCS2[i+1]; Result := Result+WideCharToString(pWideChar(Str)); Inc(i,2); end; end; 应该可以的，前两天做的Demo里抓出来的
