显示特定类型的所有变量

作者: 产品你是狗
发布时间: 2024-12-13 06:57:20 (10天前)
转自：

2 条回复

0#
回复此人
誓言 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你必须选择 <code> Venues </code> ： </p> <pre> <code> procedure WriteFoodMenu(Venue: Venues; MFood: MFood); begin if MFood.venue = Venue then WriteLn(mfood.foodtype, ' - ', mfood.chef, ' - ', mfood.venue); end; </code> </pre> <P> 只有将所需的场地传递给程序才有效。现在你可以有一个MFoods列表： </p> <pre> <code> 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> </pre> <P> 请注意，显示传递的提示是有意义的 <code> FoodType </code> 在您出示菜单之前。您目前根本没有使用提示。 </p> </DIV>

编辑

登录后才能参与评论