Question

如何让delphi7支持unicode编码

Answer 1

D7没有SaveToFile(FileName,Encodeing)这样的，需要将ansi转成unicode， function AnsiToUnicode(s:string):WideString; var lpWideChar:PWideChar; len:Integer; begin len := ( Length(s) + 1 ) * 2; GetMem(lpWideChar, len); ZeroMemory(lpWideChar, len); MultiByteToWideChar(CP_ACP,MB_PRECOMPOSED, PChar(s), Length(s),lpWideChar, Len); Result := lpWideChar; FreeMem(lpWideChar); end; function UnicodeToAnsi(s:WideString):string; var lpChar:PChar; len:integer; begin len := Length(s) * 2; GetMem(lpChar,len); ZeroMemory(lpChar, len); WideCharToMultiByte(CP_ACP, WC_COMPOSITECHECK, PWideChar(s), Length(s),lpChar,Len, nil, nil ); Result := lpChar; FreeMem(lpChar); end;