Таңдау операторы. Жоспары: Тандау операторы ( case ) ComboBox


procedure TForm1.ListBox1Click(Sender: TObject); begin



бет2/2
Дата26.12.2019
өлшемі95.08 Kb.
1   2

procedure TForm1.ListBox1Click(Sender: TObject); begin
case listBox1.ItemIndex of
0:edit1.Text:='[0..255]';
1:edit1.Text:='[-128..127]';
2:edit1.Text:='[-32768..32767]';
3:edit1.Text:='[-2147483648..-2147483647]';
4:edit1.Text:='[0..65535]'; end;
end;
Төмендегі суретте қосымшаның орындалу нәтижесі көрсетілген.


Сурет 4. Жобаның орындалу интерфейсі
Мысал2. Әр елдің аты жазылған тізімнен, таңдалған мәнге байланысты сол елге сәйкес ақша бірлігінің атауын шығаратын қосымша жасаңдар.




Сурет 5. Жоба интерфейсі
Программа коды:
procedure TForm1.ListBox1Click(Sender: TObject); begin

Case listbox1.ItemIndex of
0:edit1.Text:='Фунт';
1,2,5,6,10:edit1.Text:='Евро';

3:edit1.Text:='Рупий';

4:edit1.Text:='Крон';

7:edit1.Text:='Юан';


8:edit1.Text:='Туглик';

9:edit1.Text:='Доллар';


11:edit1.Text:='Франк';

12:edit1.Text:='Йен';


end;

end;

Достарыңызбен бөлісу:
1   2




©engime.org 2020
әкімшілігінің қараңыз

    Басты бет