Посоветуйте. Нет ли какой-нибудь конструкции типа CASE

[SZeman]

Острой проблемы нет, но есть желание сделать код немного читаемее.
В моих процедурах часто используются
IF( A=1 ) THEN
…
ELSE
IF( A=2 ) THEN
…
ELSE
IF ( A=3 ) THEN
ELSE
Ну и так далее.
Цепочка может состоять из 10-20 IF
Быть может, есть какая-то конструкция, которой можно было бы заменить мою елочку.
Мы работаем на IB6. Товарищ KDV будет как всегда в гневе.

[Anton Glasunov]

Нет такой конструкции в IB6.*. Появилась начиная с IB75. За FB не скажу - не работал.

[hvlad]

Нет такой конструкции в IB6.*. Появилась начиная с IB75. За FB не скажу - не работал.

Нет такого CASE ни в IB7.5, ни в FB.
Есть CASE-expression, но это другая песня.
Вопрошающий хотел аналог case\switch в pascal\c

[Anton Glasunov]

Да, виноват.

первое - по невнимательности.
второе - case в select я ждал, а в процедуре - нет.

[SZeman]

Жалко конечно
Спасибо за ответы