Показать сообщение отдельно
  #3  
Старый 16.12.2020, 11:07
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 658
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Код:
procedure DoSomething(flag: Integer);
begin
  case flag of
  0: {do action 1};
  1: {do action 2};
  ...
  n: {do action n};
  else 
    {do another action};
  end;
end;

procedure TForm1.Combobox1Change(Sender: TObject);
var
  i: Integer;
begin
  for i := Combobox1.ItemIndex to Combobox1.Items.Count - 1 do
    DoSomething(i);
end;
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием