摘要: function UnicodeToAnsi(s: WideString): string;var lpChar: PChar; len: integer;begin len := Length(s) * 2; GetMem(lpChar, len); ZeroMemory(lpChar, len) 阅读全文
posted @ 2017-12-25 11:31 绿水青山777 阅读(1762) 评论(0) 推荐(0) 编辑