Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];

Вниз

Функция 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]

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

---

← →
Anatoly Podgoretsky   (2002-12-09 10:14) [4]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.051 c