Курсовая работа: Автоматизация заказа блюд в ресторане

var number:integer;prodZak:real;flag:boolean;

begin

flag:=true;

number:=strtoint(Text);

ZakazForm.memo1.Clear;

If not(strtoInt(Text) in [1..50]) then ZakazForm.memo1.Lines.Text:='Количествоблюдпревзошлоразумныепределы!'

else begin

T_spisokB.locate('IDB',T_zakazIDB.value,[]); {Нашлиблюдо}

T_ProdinRec.First;

{Оценивающийцикл}

{} While not(T_ProdinRec.Eof) and flag do begin {Ищемзаписьпродукта}

if T_products.Locate('IDP',T_ProdinRecIDP.Value,[]) then

{Сравниваемзаказанноеиналичествующее}

{} begin

ProdZak:=T_ProdinRecKol_voPvB.Value*number;

if ProdZak<T_productsKol_vo.Value then flag:=true

else flag:=false;

end;

T_ProdinRec.Next;

end;

{Проверка}

T_ProdinRec.First;

if flag then

{} begin

{Редактирующийцикл}

{} While not(T_ProdinRec.Eof) do begin {Ищемзаписьпродукта}

if T_products.Locate('IDP',T_ProdinRecIDP.Value,[]) then

{} begin

ProdZak:=T_ProdinRecKol_voPvB.Value*(number-T_zakazKol_voZ.Value);