Таңдау операторы. Жоспары: Тандау операторы ( case ) ComboBox
procedure TForm1.ListBox1Click(Sender: TObject); begin
жүктеу/скачать 95,08 Kb.
|
1 2
Байланысты:Лекция 4
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; жүктеу/скачать 95,08 Kb. Достарыңызбен бөлісу:
|
1 2