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;




Начало  Назад  Вперед



Книжный магазин