Связь двух комбобоксов!!!

[viteyk]

У меня программа имеет два комбобокса, в каждом боксе по 4 значения (в 1 и во 2 одинаковые). Мне необходимо сделать, чтоб при выборе значения в одном боксе и и в другом программа считала по одной схеме, при выборе других значений по другим схемам. Как записать в коде??? Извиняюсь если что то не так)))

[Sparkman]

объясните, ничего не понятно

[viteyk]

щас кину скриншот

[viteyk]

Программа перевода физ величин

[Sparkman]

То есть, в каждом ComboBox заложены единицы измерения, необходимо - при изменении значений в каждом из ComboBox автоматически изменять результат.

Используйте case в событии каждого ComboBoxXChange:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
     case ComboBox1.ItemIndex of
     0:  case of ComboBox2.ItemIndex of
         0:  Edit1.Text:='1';
         1:  Edit1.Text:='1000';
         2:  ...
         3:  ...
         4:  ...
         end;
     1:  case of ComboBox2.ItemIndex of
         0:  Edit1.Text:=...
         1:  ...
         2:  ...
         3:  ...
         4:  ...
         end;
     2: ...
     3: ...
     4: ...
     end;
end;

[viteyk]

Вот скриншот

[viteyk]

В одгом edit я ввожу заначение велечины из которой перевожу во втором edit выводится переведенное значение

[viteyk]

при этом главной процедурой является ButtonClick

[Sparkman]

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

при этом главной процедурой является ButtonClick

procedure TForm1.Button1Click(Sender: TObject);
begin
     case ComboBox1.ItemIndex of
     0:  case of ComboBox2.ItemIndex of
         0:  Edit2.Text:=Edit1.Text;
         1:  Edit2.Text:=FloatToStr(StrToFloat(Edit1.Text)*1000);
         2:  ...
         3:  ...
         4:  ...
         end;
     1:  case of ComboBox2.ItemIndex of
         0:  ...
         1:  ...
         2:  ...
         3:  ...
         4:  ...
         end;
     2: ...
     3: ...
     4: ...
     end;
end;

[viteyk]

Спасибо, ща попробую)))