23 липня о 18:00Вебінар: STEM-освіта без гендерних стереотипів – запорука успішного майбутнього школярів

Практична робота в Delphi "Вартість обіду"

Про матеріал

Роздатковий матеріал з об'єктно-зорієнтованого програмування для практичної роботи "Вартість обіду". Практична робота містить опис необхідних компонентів і процедур

Перегляд файлу

Составить меню обеда.

Рассчитать стоимость обеда.

 

 

CheckListBox:  Свойство Items: ТStrings

 

ListBox:  Свойство Items: ТStrings

 

Двойной щелчок на CheckListBox, вписать недостающие строки

 

procedure TForm1.CheckListBox1Click(Sender: TObject);

var i : word;

  S : double;

begin

  S:=0;

  with CheckListBox1 do

  for i:=0 to Items.Count-1 do begin

    if Checked[i] then begin

      if ListBox1.Items.Strings[i]<>'' then

      S:=S+StrToFloat(ListBox1.Items[i]);

    end;

  end;

  Panel1.Caption:=FloatToStr(S);

end;

doc
Додано
14 листопада 2018
Переглядів
133
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку