Delphi


MultiByteToWideChar


MultiByteToWideChar . MultiByteToWideChar: procedure TWideCharStrList.AddString(const S: string); var Size, D: Integer; begin Size:= SizeOf(S); D:= (Size + 1) * SizeOf(WideChar); FList[FUsed]:= AllocMem(D); MultiByteToWideChar(0, 0, PChar(S), Size, FList[FUsed], D); Inc(FUsed); end;

, ANSI, : procedure TWideCharStrList.AddString(const S: string); var L, D: Integer; begin FList[FUsed]:= StrNew(PWideChar(S)); Inc(FUsed); end;