case of - Too many local constants. Use shorter procedures

[FleXik]

var
w:string;
begin 
w:='0';
 if sComboBox3.ItemIndex=2 then
  begin
    case sComboBox4.ItemIndex of
      1 : case sComboBox5.ItemIndex of
        1 : w:='11';
      end;
      2 : case sComboBox5.ItemIndex of
        1 : w:='196';         2 : w:='259'; // цифры меняются в зависимости от ItemIndex комбобокса
        3 : w:='47';         4 : w:='181';
        5 : w:='135';
      end;
    end;
  end;
end;

такого кода ~5000 строк, в итоге при компиляции проэкта получаю следующее:

Too many local constants.  Use shorter procedures

проверял, перебор 70 строк, если 70 строк из 5000 удалить - проэкт компилится, как решить проблему не переписывая проэкт? Уже второй раз переписываю в итоге каких-то 70 строк ставят под вопрос мою 3-х дневную работу...

Плодить темы прекращай.

я знаю, извиняюсь...

[doktor255]

Плодить темы прекращай.

[phomm]

Я бы советовал уйти в горы постигать дзен. Программирование, очевидно, не Ваше.
Любой человек увидев что для задачи требуется труд, дурной и монотонный, который как раз и должна выполнять машина, сообразит, что _тут что-то не так_ и сей труд надо поручить машине, а не будет сам сидеть и как обезьянка пытаться добиться своего самым тупым способом, чего бы оно не стоило, вместо того, чтобы применить голову. Вашему способу даже есть официальное название - китайский код.

Ваша задача (если её правильно можно понять, см. опять же сагу о xyz) решается несколькими способами.
Во-первых, файл, в нём лежит массив данных по индексам комбобокса.
читаете файл в массив потом по индексу подставляете значение.
Во-вторых, массив в коде, одной константой. Дельфи Вам прямо говорит о переизбытке локальных констант, т.к. любая строка или число в коде процедуры уже является константой, просто объявленной неявно. (надо же программе как-то хранить информацию о том как производить операции - вот и хранит в локальных константах).
То, что на Ваш взгляд кажется сложным из-за разных условий по комбобоксам, на самом деле лишь вопрос организации структуры хранения, например можно дополнительно хранить индекс другого комбобокса постоянно (тот что для более "высокого" кейса используется) или же озаботиться структурой данных "дерево" и сделать через неё, а уж готовую структуру можно опять же залить в файл или ещё как.
Ещё один способ - хранить в базе данных, тогда загрузку в комбобоксы можно сделать полуавтоматической (через датасеты), и сопоставление нужных данных нужным индексам будет браться из базы.

Есть ещё один волшебный способ, но его сложно будет Вам реализовать - полиморфизм на классах, в нём даже кейсы не понядобятся, индексы комбобоксов будут определяющими данными для построения нужных экземпляров, которые и будут производить дальнейшую Вашу работу (которую Вы опять же скрыли, по канонам Саги)

[FleXik]

phomm, понимаете, код переписываю уже второй раз (3-4 дня занимает один раз переписать код т.к все значения задаются вручную), или по вашему я должен год над этой задачей сидеть или может лет двадцать? я и гуглил но нигде толком ничего не пишут, этот форум а уж тем более раздел и создан для того чтобы помогать друг другу, все индивидуально, никто никого помогать не заставляет.

[ReportCube]

Так вам же объяснили, что такие вещи лучше не в коде писать, а во внешних хранилищах, хотя бы в том же Combobox-е числовое значение можно сохранять вместе со строками, как объекты. Лучше подумайте над организацией программы, а не над трёхдневном написании одного и того же алгоритма.

[Serge_Bliznykov]

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

короче, создайте ОТДЕЛЬНЫЙ модуль (например, File - New... Unit... )
и вынесите свой код туда, например, в функцию:

function GetComboBox5Value2(const ItemIndex5 : integer) : string;
begin
   Result := '';
   case ItemIndex5 of
        1 : Result:='196';         2 : Result:='259'; // цифры меняются в зависимости от ItemIndex комбобокса
        3 : Result:='47';         Result : w:='181';
        5 : Result:='135';
      end;
end;

тогда в основном модуле нужно будет подключить даннуй unit через Uses <ИмяВашегоUnit>

и можно будет писать так:

if sComboBox3.ItemIndex=2 then
  begin
    case sComboBox4.ItemIndex of
      1 : case sComboBox5.ItemIndex of
        1 : w:='11';
      end;
      2 : w :=  GetComboBox5Value2( sComboBox5.ItemIndex );
    end;
  end;

но вообще, Вы абсолютно зря не хотите переделать свой код так, как это положено!
Перечитывайте пост #3 и #5 в данной теме до ПОЛНОГО просветления. Если что-то непонятно - спрашивайте совета.
И переписывать код в нормальный можно с помощью автоматизации - в полуавтоматическом режиме (макросы и обработку текста программы никто не отменял).

код переписываю уже второй раз (3-4 дня занимает один раз переписать код т.к все значения задаются вручную)

может быть, стоит уже подключить к рукам голову и написать так, чтобы не нужно было год переписывать одно и то же?!!

[FleXik]

Serge_Bliznykov, спасибо.


Serge_Bliznykov, сейчас буду пробовать, код ясен и понятен, спасибо, просто некоторые здесь пишут заумными формулировками которые не всегда мне понятны. Я не обижаюсь, а так должно получиться конечно, я и раньше работал с функциями просто руки не доходили до написания их самому...


Serge_Bliznykov, проверил, идеально работает, какраз прям в точку, то что надо, спасибо огромное

[Serge_Bliznykov]

Пожалуйста.
Получилось?


И не обижайтесь на правду, все мы когда-то были новичками..
Если нужна помощь(хоть методологическая, хоть практическая) в переработке вашего кода в более-менее нормальный - обращайтесь!