Delphi幾個編碼轉換函數 - Delphi之窗
functionUnicodeEncode(Str:string;CodePage:integer):WideString;varLen:integer;beginLen:=Length(Str)+1;SetLength(Result,Len);Len:=MultiByteToWideChar(Co ... function UnicodeEncode(Str:string;CodePage:integer):WideString; var Len:integer; begin Len ......