OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Вторник, 12 Ноябрь, 2019 01:12

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: Получить беззнаковое значение BYTE
СообщениеДобавлено: Вторник, 11 Декабрь, 2012 02:14 
Модератор
Аватара пользователя

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9154
Откуда: Россия, Орёл
Мне приходится использовать такую процедуру:

Код:
CONST littleEndian

   PROCEDURE UByte* (x: BYTE): INTEGER;
      VAR u: INTEGER;
   BEGIN
      u := 0;
      IF littleEndian THEN
         SYSTEM.PUT(S.ADR(u), x);
      ELSE
         HALT(126)
      END;
   RETURN u
   END UByte;


Может быть, я не вижу варианта сделать это без модуля SYSTEM?


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Вторник, 11 Декабрь, 2012 04:06 
Аватара пользователя

Зарегистрирован: Суббота, 26 Ноябрь, 2005 02:12
Сообщения: 451
Откуда: Егорьевск
x MOD 100H
ORD(SHORT(CHR(x)))


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Вторник, 11 Декабрь, 2012 17:15 
Администратор

Зарегистрирован: Вторник, 15 Ноябрь, 2005 01:14
Сообщения: 4335
Откуда: Россия, Орёл
Илья Ермаков писал(а):
Может быть, я не вижу варианта сделать это без модуля SYSTEM?

Мог бы у нас спросить)))) Нет, черезмерное употребление SYSTEM вредно для здоровья. 8)


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Вторник, 11 Декабрь, 2012 18:36 
Модератор
Аватара пользователя

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9154
Откуда: Россия, Орёл
Спасибо!


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Вторник, 11 Декабрь, 2012 18:59 

Зарегистрирован: Вторник, 29 Август, 2006 12:32
Сообщения: 2625
Откуда: Россия, Ярославль
Борис Рюмшин писал(а):
Нет, черезмерное употребление SYSTEM вредно для здоровья.
Авторы SystemStores считают иначе, судя по всему. Хотя обойтись без SYSTEM там можно, это они так ресурсы экономили?


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Вторник, 11 Декабрь, 2012 20:47 
Администратор

Зарегистрирован: Вторник, 15 Ноябрь, 2005 01:14
Сообщения: 4335
Откуда: Россия, Орёл
Сложно сказать. Иногда это оправдано, иногда некоторые трюки даже оптимальнее... Лучше лишний раз подумать, прежде чем использовать SYSTEM. Илье Евгеньевичу это сложно сделать --- у него задачи регулярно близко к ядру приближаются, вот он и привыкает :)


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 6 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
cron
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2019, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB