mam taki krotki kodzik procedurki:
procedure TForma_glowna.ComboBox1Change(Sender: TObject);
var
KtoraBron : Integer;
begin
KtoraBron:=ComboBox1.ItemIndex;
case KtoraBron of
0 : Amunicja.Text := 'Nie dotyczy';
1 : Amunicja.Text := 'Jest nielimitowana';
2 : Amunicja.Text := '60';
3 : Amunicja.Text := '6';
4 : Amunicja.Text := 'Nie dotyczy';
5 : Amunicja.Text := '3';
6 : Amunicja.Text := '1';
end;
end;
i jest problemik czy da sie w instrukcji case of zmienic 2 rzeczy pzy jednym wydarzeniu?? Jesli nie wiesz o co mi chodzi czytaj kodzik:
if KtoraBron = 2 then
Amunicja.Enabled := True;
Amunicja.Text := '60';
else if i tak dalej dla kazdego przypadku
Czy da sie??