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

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

Как перевести текст в формат DOS [D6, XP]

Andrey K ©   (2015-02-08 00:05:00) 

Доброго времени суток. Пишу редактор для станков с ЧПУ. На станке досовская операционка. УП (управляющая программа) выводит сообщения для оператора. Как перевести сообщения в досовский формат при передаче УП на станок. Или где можно про это почитать.

---

i2e   (2015-02-09 14:03:00) [1]

в комментариях:
// Ё
// ё
// а-п
// р-я
// А-Я

---

i2e   (2015-02-09 14:02:00) [2]

пользовался таким:

function TextDosToWin(S: String): String;
var I, LenS: Integer;
   P: PChar;
begin
 P := PChar(S);    LenS := StrLen(P);    I := 1;
 while I = $A0 ) and ( Ord(S[I]) = $E0 ) and ( Ord(S[I]) = $80 ) and ( Ord(S[I])

---

Dennis I. Komarov   (2015-02-08 01:02:00) [3]

Удалено модератором

---

Andrey K   (2015-02-08 00:33:00) [4]

Спасибо

---

Юрий Зотов   (2015-02-08 00:27:00) [5]

Насколько помню, CharToOem <-> OemToChar. Инструкции в гугле.

---

Наверх