Бар

Danonya2

Здраствуйте! Помогите создать приложение, помогающее посетителю бара выбрать двойным щелчком из списка понравившиеся ему блюда. В первый список внесите меню и стоимость следующим образом: Кекс 20, Кофе 25 и т. д. Выбор понравившегося блюда заносит его во второй список - "Заказ". Поместите на форме - элемент, в котором будем отображать сумму, на которую сделан заказ. Проконтролируйте, чтобы сумма заказа не превышала суммы, имеющейся у посетителя. Если сумма меньше чем стоимость минимальной цены в вашем заведении, то выведите на экран сообщение об этом и завершите программу.
7 ответов

Danonya2

Вам необходимо всё написать или просто что-то не понятно?


Danonya2

Вам необходимо всё написать или просто что-то не понятно?
написать код. может кто то делал подобное.


Danonya2

И как прикажете проконтролировать превышение суммы заказа если нет данных о кредите покупателя?


Danonya2

И как прикажете проконтролировать превышение суммы заказа если нет данных о кредите покупателя?
Вот мне тоже не понятно. Может тогда упростить можно как то?


Danonya2

Вот мне тоже не понятно. Может тогда упростить можно как то?
Это учебная задача или как?


Danonya2

Это учебная задача или как?
да,учебная...


Danonya2

Если исключить контроль кредита покупателя, то вот так будет:
procedure TForm18.ListBox1DblClick(Sender: TObject);
var
  i: Integer;
  Sum: Real;
begin
 if ListBox1.ItemIndex <> -1
 then begin
      ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
      Sum := 0;
      for i := 0 to ListBox2.Count - 1
      do Sum := Sum + StrToFloatDef(Copy(ListBox2.Items.Strings[i],Pos(' ',ListBox2.Items.Strings[i])), 0);
      Button1.Caption := FloatToStr(Sum);
      end;
end;
Обязательное условие, в меню все названия должны быть в одно слово и через пробел цена.