case of и массив-константа

[exyl]

Здрассьте.
case of - удобная штука, однако столкнулся с небольшой проблемкой. В этом операторе можно использовать только значения-константы. Ок, объявляю:

const LC : array [0..18] of byte = (8, 9, 10, 11, 55, 57, 70, 75, 90, 91, 92, 93, 100, 109, 130, 140, 155, 170, 171);

Пытаюсь использовать:

  case T.Tag of
    LC[0]  : Panel1.Visible:=true;
  end;

Выдает ошибку:

[DCC Error] ZZZ.pas(12346): E2026 Constant expression expected

Но ведь этот массив и все его значения предопределены с самого начала, в чем проблема?
При этом, если сделать отдельные константы для каждого значения в массиве, то, естессно, работает.
Почему мне хотелось бы использовать именно так - у меня часто встречаются case of, в которых используются именно эти значения. Но значения могут поменяться и не хотелось бы искать по всем модулям и менять вручную или заводить 19 отдельных констант или использовать кучу конструкций if...then (хотя именно этот вариант пока выглядит наиболее оправданно). Что посоветуете?

[Вадим Мошев]

Но ведь этот массив и все его значения предопределены с самого начала, в чем проблема?

сущности, объявленные похожим образом:

const LC : array [0..18] of byte = (8, 9, 10, 11, 55, 57, 70, 75, 90, 91, 92, 93, 100, 109, 130, 140, 155, 170, 171);

Не являются константами на самом деле. Это переменные, у которых уже имеются значения. Это не константы.

[exyl]

Сообщение от Вадим Мошев

сущности, объявленные похожим образом:

const LC : array [0..18] of byte = (8, 9, 10, 11, 55, 57, 70, 75, 90, 91, 92, 93, 100, 109, 130, 140, 155, 170, 171);

Не являются константами на самом деле. Это переменные, у которых уже имеются значения. Это не константы.

Если это не константы, то могу ли я присвоить новое значение в массиве:

LC[0]:=1;

Нет, выдает ошибку. Тогда каким образом можно выявить "переменность" это переменной? Я не спорю с твоим утверждением, просто интерес.

Самое главное для меня - что лучше/правильнее/удобнее/логичнее использовать? Массив и кучу конструкций if...then?

[Аватар]

заводи в одном юните:

Const MyValueA = 8;
MyValueB = 9;
и т.д.

В остальных юнитах в uses ссылка на этот юнит. Значения констант тогда менять только в одном месте. и

case тра-ля-ля of
MyValueA: ...
MyValueB: ...
end;

Можно и массив с этих констант организовать, но не для case

[StriderX]

Для case можно энумерейт завести:

        TMyEnum = (
                            tmeMyNoneFlag        = 0
                          , tmeMyReadOnlyFlag  = 1 shl 0
                          , tmeMyHiddenFlag     = 1 shl 1
                         );

Его потом точно так же как и массив можно и перебирать, если требуется:

 for e := Low(TMyEnum) to High(TMyEnum)

И никаких magic number - всё поголовье именное @_@

[Аватар]

Для case можно энумерейт завести

Конечно это удобней, но значения констант ТС не вписываются в такой тип.

[Человек_Борща]

Нет, выдает ошибку. Тогда каким образом можно выявить "переменность" это переменной? Я не спорю с твоим утверждением, просто интерес.

Констант не существует. Константа это переменная, в область памяти которой запрещена запись. В старых дельфях, для модуля, можно было включить WRITABLE_CONSTS, разрешающую запись в константы.

[exyl]

Сообщение от Аватар

заводи в одном юните:

Да по идеологии того, кто начинал этот проект, все глобальные переменные, а так же константы, типы и общие функции работы с типами и так находятся в отдельном юните, который прописан во всех юнитах форм (в "бестелесных" юнитах он не прописан и значения глобальных переменных передаются туда только в виде параметров функций или процедур).

И никаких magic number - всё поголовье именное

Вообще те данные, что я привел - это некая кривая (curve), описывающее движение и именных констант внутри как бы и не требуется, т.к. она отрабатывает либо наполовину, либо полностью и нужны только индексы.

Константа это переменная, в область памяти которой запрещена запись.

А почему тогда при невозможности записать:

LC[0]:=1;

Тем не менее case of не работает?

[StriderX]

Сообщение от Аватар

Конечно это удобней, но значения констант ТС не вписываются в такой тип.

Непонятно почему не вписываются (может версия делфи не та, запросто). Ну а ежели даже хочется от нуля и по порядку, заводим мы:

        TMyEnum = (
                            tmeMyNoneFlag        = 0
                          , tmeMyReadOnlyFlag  = 1
                          , tmeMyHiddenFlag     = 2
                         );

Пропишем ниже переменную

 myconstholder : array[TMyEnum] of string = ('none', 'ronly', 'hidden');

И даже не хотим себе потенциальную мину создавать, влепим функцию инициализации где явно и запишем:

 myconstholder[tmeMyNoneFlag] = 'hello, world';

В этом смысле то можно под себя выстроить что угодно, нипанятна...

[Аватар]

но значения констант ТС не вписываются в такой тип

По поводу #6 - перенклинило, так можно

TMyEnum = (
                            tmeMyNoneFlag        = 1
                          , tmeMyReadOnlyFlag  = 3
                          , tmeMyHiddenFlag     = 9
                         );