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