PROSAGA码农传奇-pascal-显示特定类型的所有变量

显示特定类型的所有变量

作者: 产品你是狗
发布时间: 2025-01-05 07:41:16 (1月前)
转自：

        我想在WriteFoodMenu中创建一个菜单，让用户显示所有可用选项（这是WriteLn当前在WriteFoodMenu中所做的选项，或者只显示选中的选项...

你必须选择
Venues
：


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


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

   
    
      const
  Foods: array[0..numOfFoods - 1] of MFood =
  (
    (FoodType: ‘Spaghetti’; Chef: ‘Luigi’; Venue: resteraunt),
    ( etc…),
    // etc…
    ( etc…)
  );
…
  Venue := FoodType(‘Select a venue’);
  for I := Low(Foods) to High(Foods) do
    WriteFoodMenu(Venue, Foods[I]);
</code>
  

  
    请注意，显示传递的提示是有意义的
     
      FoodType
    
     在您出示菜单之前。您目前根本没有使用提示。