BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Главная  / Поддержка  / Форум  / Публичные форумы  / Программирование отчетов  / Использование оператора CASE в отчетах БЭСТ 5

Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Использование оператора CASE в отчетах БЭСТ 5
 
Уважаемые разработчики и консультанты, помогите пожалуйста.
Возникла необходимость сделать отработку значений по оператору CASE.
Но вот синтаксис говорит:
Код
case (Ошибка здесь: Need ":=" here)combobox1.itemindex do
        0:  memo145.Lines.Add('0');
        1:  memo145.Lines.Add('1');
        2:  memo145.Lines.Add('2');            
      end;

Как правильно описать выражение?
 
Цитата
ОАО КРССУ пишет:
Уважаемые разработчики и консультанты, помогите пожалуйста.

Возникла необходимость сделать отработку значений по оператору CASE.

Но вот синтаксис говорит:

Код
case (Ошибка здесь: Need ":=" here)combobox1.itemindex do

        0:  memo145.Lines.Add('0');

        1:  memo145.Lines.Add('1');

        2:  memo145.Lines.Add('2');            

      end;



Как правильно описать выражение?

Для выбора можно использовать конструкции CASE и SWITCH.
Такой синтаксис больше подходит под оператор SWITCH, CASE имеет несколько другой формат, вот примеры правильного написания этих операторов:

SWITCH cType
CASE "N"
x:=STR(x,nLen)
EXIT
CASE "D"
x:=DTOS(x)
EXIT
CASE "L"
x:=IF(x,"T","F")
EXIT
END

do case
case cType=='N'
cOrdFor := ::DataStruct[i-3,1]+[==]+aParamValues[i]
case cType=='L'
if aParamValues[i]
cOrdFor := ::DataStruct[i-3,1]
else
cOrdFor := [!]+::DataStruct[i-3,1]
endif
otherwise
cOrdFor := ::DataStruct[i-3,1]+[==']+aParamValues[i]+[']
endcase
 
Спасибо, Александр, в программных модулях отрабатывает, но в дизайнере отчетов все эти конструкции не работают. В дизайнере отчетов ведь используется Object Pascal?
 
Добрый день!
Цитата
ОАО КРССУ пишет:
Спасибо, Александр, в программных модулях отрабатывает, но в дизайнере отчетов все эти конструкции не работают. В дизайнере отчетов ведь используется Object Pascal?
В дизайнере язык не подный. Предлогаю использовать операторы:
Код
IF <....> THEN BEGIN <.....> END;
Страницы: 1
Читают тему (гостей: 1)