Функция CharToOem

← →
KMI © (2002-12-09 08:37) [0]

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

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

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

← →
MBo © (2002-12-09 08:45) [1]

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

← →
Dimka Maslov © (2002-12-09 09:34) [2]

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

← →
KMI © (2002-12-09 10:00) [3]

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

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

Функция CharToOem Найти похожие ветки