OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Понедельник, 25 Март, 2019 20:54

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




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
СообщениеДобавлено: Понедельник, 30 Ноябрь, 2009 17:12 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4488
Откуда: Россия, Орёл
Код:
         | Meta.sRealTyp:
            IF (x = "") OR (x = "-") THEN r := 0; res := 0 ELSE Strings.StringToReal(x, r, res) END;
            IF (res = 0) & (r >= MIN(SHORTREAL)) & (r <= MAX(SHORTREAL)) THEN
               or := c.item.RealVal();
               IF r # or THEN c.item.PutRealVal(r); Notify(c, f, Dialog.changed, 0, 0) END
(1)         ELSIF x # "-" THEN
               Dialog.Beep
            END
         | Meta.realTyp:
            IF (x = "") OR (x = "-") THEN r := 0; res := 0 ELSE Strings.StringToReal(x, r, res) END;
            IF res = 0 THEN
               or := c.item.RealVal();
               IF r # or THEN c.item.PutRealVal(r); Notify(c, f, Dialog.changed, 0, 0) END
(2)         ELSIF x # "-" THEN
               Dialog.Beep
            END
При вычислении x # "-" в (1) и (2):
(1) ~( (res = 0) & (r >= MIN(SHORTREAL)) & (r <= MAX(SHORTREAL)) ) -> x # "-"
(2) ~(res = 0) -> x # "-"

Заменить
Код:
            ELSIF x # "-" THEN
            на
            ELSE


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Понедельник, 30 Ноябрь, 2009 20:32 
Аватара пользователя

Зарегистрирован: Пятница, 25 Ноябрь, 2005 12:02
Сообщения: 7997
Откуда: Троицк, Москва
Евгений Темиргалеев писал(а):
Заменить
Код:
            ELSIF x # "-" THEN
            на
            ELSE
В таких случаях полезно вставить ELSE ASSERT( x # "-" )


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

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


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

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


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

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