Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Функция CharToOem [D5, D6, D7, Win95/98, Win2k, WinXP]


KMI ©   (2002-12-09 08:37:00) 

Друзья, есть код для перевода текста в кодировку DOS:

Win:=PChar("Строка текста типа string");
CharToOem(Win, Dos);
TextInDos:= StrPas(Dos);


При его использовании ошибок не выводится, но переменная TextInDos оказывается пустой строкой. Помогите, пожалуйста, найти ошибку...


Anatoly Podgoretsky   (2002-12-09 10:14:00) [1]

У тебя неизвестная величина - Win, Dos, ты забыл указать их типы и манипуляции с памятью. Так твой код полностью нормальный.


KMI   (2002-12-09 10:00:00) [2]

Спасибо огромное, заработало!!! :))


Dimka Maslov   (2002-12-09 09:34:00) [3]

Str:="Строка текста типа string";
UniqueString(Str);
CharToOEM(PChar(Str), PChar(Str));


MBo   (2002-12-09 08:45:00) [4]

CharToOem(PChar(Win),Pchar(Dos));
все.


Наверх

Титульная страница Поиск, карта сайта Написать письмо