Код:
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% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
|