Конвертирует строку из кодировки DOS в кодировку Windows и обратноDelphi , Синтаксис , ПреобразованияКонвертирует строку из кодировки DOS в кодировку Windows и обратно
Автор: Сергей { **** UBPFD *********** by delphibase.endimus.com **** >> Конвертирует строку из кодировки DOS в кодировку Windows и обратно Конвертирует строку из кодировки DOS в кодировку Windows и обратно Зависимости: ??? Автор: Сергей, nfkazak@inbox.ru, Краснодар Copyright: VIP BANK Дата: 11 сентября 2002 г. ***************************************************** } function WinToDos(St: string): string; var Ch: PChar; begin Ch := StrAlloc(Length(St) + 1); AnsiToOem(PChar(St), Ch); Result := Ch; StrDispose(Ch) end; function DosToWin(St: string): string; var Ch: PChar; begin Ch := StrAlloc(Length(St) + 1); OemToAnsi(PChar(St), Ch); Result := Ch; StrDispose(Ch) end; Статья Конвертирует строку из кодировки DOS в кодировку Windows и обратно раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |