显示特定类型的所有变量


产品你是狗
2025-01-05 07:41:16 (1月前)
  1. 我想在WriteFoodMenu中创建一个菜单,让用户显示所有可用选项(这是WriteLn当前在WriteFoodMenu中所做的选项,或者只显示选中的选项...

2 条回复
  1. 0# 誓言 | 2019-08-31 10-32



    你必须选择

    Venues





    1. procedure WriteFoodMenu(Venue: Venues; MFood: MFood);
      begin
      if MFood.venue = Venue then
      WriteLn(mfood.foodtype, - ‘, mfood.chef, - ‘, mfood.venue);
      end;

    2. </code>


    只有将所需的场地传递给程序才有效。现在你可以有一个MFoods列表:




    1. const
      Foods: array[0..numOfFoods - 1] of MFood =
      (
      (FoodType: Spaghetti’; Chef: Luigi’; Venue: resteraunt),
      ( etc…),
      // etc…
      ( etc…)
      );


    2. Venue := FoodType(‘Select a venue’);
      for I := Low(Foods) to High(Foods) do
      WriteFoodMenu(Venue, Foods[I]);

    3. </code>


    请注意,显示传递的提示是有意义的

    FoodType

    在您出示菜单之前。您目前根本没有使用提示。


登录 后才能参与评论