[PR] Problem z case of

0

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??

0

to proste, np

0: begin
      //to co robisz
    end;
1: begin

i t c
0

ok thx zalapalem! wiedzialem ze cos z begin i end ale nie wiedzialem gdzie to wrzucac:D

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0