Конвертация строки в OEM

Своим опытом делится Slava Kostin:

{Конвертирует строку в OEM.
Для использования необходимо сделать uses Windows}
function StrToOEM(str: String): String;
begin
Result := str; CharToOEM(PChar(Result), PChar(Result)); end;

[001895]

Содержание Назад Вперед

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий