Прошу помощи Combobox'ы

[Lavilas]

Спасибо всем за помощь.
Появился ещё один вопрос.
Есть 5 combobox'ов. Значения от 0, до 4х.

1 combobox считываем значение и умножаем на 2
2 combobox считываем значение и умножаем на 25
3 combobox считываем значение и умножаем на 3
4 combobox считываем значение и умножаем на 7
5 combobox считываем значение и умножаем на 15

Как это можно сделать менее грамоздко, и чтоб при выборе значений в Combobox'e, автоматически менялся результат в Label'e ?

[Serge_Bliznykov]

покажите код заполнения комбобоксов..
а ещё лучше - выложите архив с исходниками проекта.
будет повод для конкретного разговора.

[Stilet]

Я лично ничего не понял...

[Lavilas]

Сообщение от Serge_Bliznykov

покажите код заполнения комбобоксов

комбобоксы заполнены через Items цифрами 0,1,2,3,4

[Serge_Bliznykov]

Я лично ничего не понял...

кстати, сейчас увидел, что TC эту тему создал, т.к. его предыдущую тему закрыли из-за неадекватных комментариев нетрезвого Смитта...

комбобоксы заполнены через Items цифрами 0,1,2,3,4

все пять комбобоксов заполнены одинаково?

[Lavilas]

Сообщение от Serge_Bliznykov

все пять комбобоксов заполнены одинаково?

Да, заполнены одинаково.

[min@y™]

а где тута база данныхЪ?

[Аватар]

Один OnChange на все комбобоксы, в Tag комбобоксов проставить то, на что умножать

procedure TForm1.ComboBoxChange(Sender: TObject);
begin
  if TComboBox(Sender).ItemIndex<0 then Label1.Caption:=''
  else Label1.Caption:=IntToStr(StrToInt(TComboBox(Sender).Items[TComboBox(Sender).ItemIndex])*TComboBox(Sender).Tag);
end;

[Serge_Bliznykov]

быдлокод заказывали?

получите и распишитесь: Project1.rar


там внутри:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  Label1.Caption := '0';
  for I := 0 to 4 do begin
    ComboBox1.Items.Append(IntToStr(i));
    ComboBox2.Items.Append(IntToStr(i));
    ComboBox3.Items.Append(IntToStr(i));
    ComboBox4.Items.Append(IntToStr(i));
    ComboBox5.Items.Append(IntToStr(i));
  end;
  ComboBox1.ItemIndex := 0;
  ComboBox2.ItemIndex := 0;
  ComboBox3.ItemIndex := 0;
  ComboBox4.ItemIndex := 0;
  ComboBox5.ItemIndex := 0;
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  {1 combobox считываем значение и умножаем на 2
 2 combobox считываем значение и умножаем на 25
 3 combobox считываем значение и умножаем на 3
 4 combobox считываем значение и умножаем на 7
 5 combobox считываем значение и умножаем на 15}
 if Sender = ComboBox1 then Label1.Caption := IntToStr( 2 * ComboBox1.ItemIndex);
 if Sender = ComboBox2 then Label1.Caption := IntToStr( 25 * ComboBox1.ItemIndex);
 if Sender = ComboBox3 then Label1.Caption := IntToStr( 3 * ComboBox1.ItemIndex);
 if Sender = ComboBox4 then Label1.Caption := IntToStr( 7 * ComboBox1.ItemIndex);
 if Sender = ComboBox5 then Label1.Caption := IntToStr( 15 * ComboBox1.ItemIndex);

end;

p.s. про Tag не сообразил. сейчас исправлю..

с тэгами так можно:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  Label1.Caption := '0';
  for I := 0 to 4 do begin
    ComboBox1.Items.Append(IntToStr(i));
    ComboBox2.Items.Append(IntToStr(i));
    ComboBox3.Items.Append(IntToStr(i));
    ComboBox4.Items.Append(IntToStr(i));
    ComboBox5.Items.Append(IntToStr(i));
  end;
  ComboBox1.ItemIndex := 0;
  ComboBox2.ItemIndex := 0;
  ComboBox3.ItemIndex := 0;
  ComboBox4.ItemIndex := 0;
  ComboBox5.ItemIndex := 0;

  ComboBox1.Tag := 2;      { 1 combobox считываем значение и умножаем на 2  }
  ComboBox2.Tag := 25;     { 2 combobox считываем значение и умножаем на 25 }
  ComboBox3.Tag := 3;      { 3 combobox считываем значение и умножаем на 3  }
  ComboBox4.Tag := 7;      { 4 combobox считываем значение и умножаем на 7  }
  ComboBox4.Tag := 15;     { 5 combobox считываем значение и умножаем на 15 }

end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if Sender is TComboBox then
     Label1.Caption := IntToStr( TComboBox(Sender).Tag * TComboBox(Sender).ItemIndex);
end;

[min@y™]

быдлокод заказывали?

Не делай так, подлецЪ!!! Мне теперь кашмары сниться будуть!