В один массив несколько "параметров" (границ массива)

[Прик]

Если границы для любого из уровней известны, то здесь может помочь динамический массив.
Только в нем можно задавать "не прямоугольные матрицы", т.е. разное количество элементов для каждого элемента предыдущей размерности.
К тому же, автору нужно не два комбобокса, а больше.
И эта задача посильна трех-, четырех-, и т.д. мерным дин. массивам.
Недостаток в этой ситуации - формирование всех размерностей можно делать только в рантайме.

[FleXik]

Сообщение от Прик

Если границы для любого из уровней известны, то здесь может помочь динамический массив.
Только в нем можно задавать "не прямоугольные матрицы", т.е. с разным количеством элементов для каждого элемента предыдущей размерности.
К тому же, автору нужно не два комбобокса, а больше.
И эта задача посильна трех-, четырех-, и т.д. мерным дин. массивам.
Недостаток в этой ситуации - формирование всех размерностей можно делать только в рантайме.

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

[Прик]

Без претензий на оптимальность и изящность, только для примера как вариант:

var
  arr : array of array of Integer; //сам рабочий массив

const
  arr2 : array[0..4] of Integer = (2, 3, 5, 4, 8); //колич. элементов во второй размерности

procedure Tfrmmain.Button1Click(Sender: TObject);
var
  I, J : Integer;
begin
  SetLength(arr, 5); //первая размерность из пяти элементов
  for I := 0 to High(arr) do begin
    SetLength(arr[I], arr2[I]);
    for J := 0 to High(arr[I]) do
      arr[I, J] := J;
      //каким-то образом заполнять вторую размерность значениями
      //видимо, тоже надо сделать свой константный массив (массивы)
  end;
end;

И весь этот геморр только для удобства дальнейшей работы с массивом через индексы. Стоит игра свеч, решать нуждающемуся.

[FleXik]

Вобщем подумал немного и что-то уже надумал, в принципе все отлично работает, вот только очень много строк кода получается, но все таки, как вам такой способ? Или кто-то что-то менее геморное предложить может?

Код (естественно изначально указываются пункты через Items.Add):

procedure TForm1.sButton1Click(Sender: TObject);
begin
ShowMessage(s);
end;

procedure TForm1.sComboBox2Select(Sender: TObject);
begin
s:='';

if Form1.sComboBox1.ItemIndex=1 then
begin
if Form1.sComboBox2.ItemIndex=1 then
s:='273';
if Form1.sComboBox2.ItemIndex=2 then
s:='56';
if Form1.sComboBox2.ItemIndex=3 then
s:='742';
end;

if Form1.sComboBox1.ItemIndex=2 then
begin
if Form1.sComboBox2.ItemIndex=1 then
s:='847';
if Form1.sComboBox2.ItemIndex=2 then
s:='107';
if Form1.sComboBox2.ItemIndex=3 then
s:='18';
if Form1.sComboBox2.ItemIndex=4 then
s:='59';
end;

Изначально я вообще хотел делать через if Pos, т.е сверять название пункта и если название совпадает то присваивать этому пункту нужное число, в принципе это тоже возможно.

[Прик]

Сократить код для удобочитаемости можно так:

  s:='';

  case sComboBox1.ItemIndex of
    1 : case sComboBox2.ItemIndex of
      1 : s:='273';
      2 : s:='56';
      3 : s:='742';
    end;
    2 : case sComboBox2.ItemIndex of
      1 : s:='847';
      2 : s:='107';
      3 : s:='18';
      4 : s:='59';
    end
  end;

Как в этом случае решена проблема изменения количества элементов в комбобоксе 2?

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

[FleXik]

Прик, вот, за case of спасибо больше, это уже как минимум достаточно сильно упростит код, спасибо

Прик, жееесть, case of реально работает и очень сильно упрощает работу))))

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

ничего не понял, можете немного понятнее обьяснить?

Как в этом случае решена проблема изменения количества элементов в комбобоксе 2?

вы про что?

[Прик]

ничего не понял, можете немного понятнее обьяснить?

Когда перед именем компонента мы ставим переменную класса, в котором этот компонент находится, это неправильно. В нашем случае это Form1.sComboBox1.
Вы хотите этим сказать, что обращаетесь к комбобоксу, размещенному в классе TForm1. Но ведь комбобокс и так находится на этой форме. Зачем уточнять (называется тавтологией)?. Это не только не логично, но и опасно. При необходимости изменить имя пеерменной (здесь Form1) можно забыть, что везде в тексте подставлено имя этой переменной и придется ее менять. Лишняя работа.

Если бы нам нужно было обратиться к компоненту на другой форме из формы 1, то тогда да, нужно указывать принадлежность этого компонента к другой форме.
Например, Form5.sComboBox1.
А в тексте нашей TForm1 нужно указывать имя компонента без переменной формы Form1. Просто: sComboBox1.

[FleXik]

Когда перед именем компонента мы ставим переменную класса, в котором этот компонент находится, это неправильно. В нашем случае это Form1.sComboBox1.

у меня все это дело находится в потоке, поток в Unit2, поэтому приставка Form1 в моем случае - обязательная


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

-------------------------
извиняюсь))) я немного тупанул, таки в Unit1 это дело находится и обращение в принципе и не нужное, но я привык эту приставку использовать.
--------------------

я так понял вы про это

procedure TForm1.sComboBox2Select(Sender: TObject);

теперь я понял о чем вы, приму во внимание, спасибо

[Прик]

но я привык эту приставку использовать.

От дурных привычек следует избавляться.
Обязательно придет время когда эта привычка "выстрелит".

вы про что?

Да про самую первоначальную задачу.
Когда количество элементов в комбобоксе 2 меняется в зависимости от значения ItemIndex в комбобоксе 1.
(см. свой пост #16)

[FleXik]

Сообщение от Прик

От дурных привычек следует избавляться.
Обязательно придет время когда эта привычка "выстрелит".

да, спасибо, я принял во внимание, теперь буду всегда использовать так как вы посоветовали как делать правильно, еще раз спасибо за помощь, case of реально очень выручает.



----------
Прик, вы про это (приставку Form1 потом везде где лишняя - уберу)???

procedure TForm1.sComboBox1Select(Sender: TObject);
begin
  s:='';

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

  if Form1.sComboBox1.ItemIndex=2 then
  begin
    Form1.sComboBox2.Clear;
    Form1.sComboBox2.Items.Add('');
    Form1.sComboBox2.Items.Add('Четыре');
    Form1.sComboBox2.Items.Add('Пять');
    Form1.sComboBox2.Items.Add('Шесть');
    Form1.sComboBox2.Items.Add('Семь');
  end;

  if Form1.sComboBox1.ItemIndex=3 then
  begin
    Form1.sComboBox2.Clear;
    Form1.sComboBox2.Items.Add('');
    Form1.sComboBox2.Items.Add('Восемь');
    Form1.sComboBox2.Items.Add('Девять');
  end;

end;