Too many local constants. Use shorter procedures

[FleXik]

[Error] Unit1.pas(6209): Too many local constants.  Use shorter procedures

Вот такая проблема, а строк должно быть еще где-то 3000-4000... и как тут быть? как решить проблему?

очень много пунктов в Combobox... добавляю я их естественно таким образом:

ComboBox1.Items.Add('блаблабла');

и вот их такое количество такое большое...

[ZuBy]

что это за данные?

может их в БД закинуть и придумать способ по проще?

[Streletz]

Delphi ругается даже не на данные, а на их количество. У всего есть предел.
Кстати зачем столько строк в 1 ComboBox, да ещё программно?
Для больших объёмов данных лучше, как Вам посоветовал, ZuBy, использовать БД. Они гораздо лучше для этого приспособлены.

[Пепел Феникса]

1)а с файла не загрузить?
2)в диспетчере объектов не забить?
3)на несколько процедур можно поделить.

[FleXik]

Сообщение от Пепел Феникса

1)а с файла не загрузить?
2)в диспетчере объектов не забить?
3)на несколько процедур можно поделить.

первый пункт отпадает, у меня при выборе одного Combobox во второй Combobox добавляются пункты (Items) и их порядка 4000-5000

if ComboBox1.ItemIndex=1 then
begin
ComboBox2.Clear;
ComboBox2.Items.Add('Один');
ComboBox2.Items.Add('Два');
ComboBox2.Items.Add('Три');
end;

if ComboBox1.ItemIndex=2 then
begin
ComboBox2.Clear;
ComboBox2.Items.Add('Четыре');
ComboBox2.Items.Add('Пять');
end;

if ComboBox1.ItemIndex=3 then
begin
ComboBox2.Clear;
ComboBox2.Items.Add('Шесть');
ComboBox2.Items.Add('Семь');
ComboBox2.Items.Add('Восемь');
ComboBox2.Items.Add('Девять');
ComboBox2.Items.Add('Десять');
end;

есть ли способ сделать так же как я дал пример выше но с меньшим количеством строк? или как-то сделать чтобы эта ошибка не вылезала...

[Аватар]

первый пункт отпадает

Почему? В файле, например, указывать типа такого:

[Пункт1]
Тра-ля-ля-1
Тра-ля-ля-2
...
[Пункт18]
Тра-ля-ля-1
Тра-ля-ля-2
...

и выбирай на здоровье

[FleXik]

Аватар, пункты принципиально должны быть вшиты в софт

в принципе БД подойдет, но я не умею с ней работать.

Ну тогда принципиально мучайся

я последние 3 дня с этими комбобоксами то и делаю что мучаюсь

[Аватар]

принципиально

Ну тогда принципиально мучайся

в принципе БД подойдет, но я не умею с ней работать.

А как же принципиальность вшития в софт?

[FleXik]

А как же принципиальность вшития в софт?

а БД что, дополнительным файлом идет? я просто никогда с БД не работал...

[Аватар]

Дополнительным файлом все. Для многих (которые чуть покруче dbf) еще свой софт ставить