如何在Delphi中进行一次活动？

Question

我是一名入门程序员，我正在尝试使用Delphi Pascal语言制作基于文本的RPG游戏（如Zork）。 我做了一个事件，其中主人公打开箱子并找到一些物品：

begin
  text1.text := 'You see a chest. It is unlocked.';
       end;
  if edit1.Text = 'Open Chest' then
  text1.Text := 'You found 50 Gold Pieces, a Short Sword, a Cloth Armor and a Satchel Bag.';
end;

但是我想这样一种方式：每当有人在第一次打开箱子后，箱子就会变空，因为玩家已经拿走了物品。 换句话说，当有人第二次在TEdit中键入“ Open Chest”时，它会显示类似“它是空的”的字样。

但是如何？

Answer 1

您必须使用其他变量来告诉您是否已经打开了箱子。

var
  ChestOpened: boolean;

// initialize at beginning
ChestOpened := false;

...

if Edit1.text = 'Open Chest' then
begin
  if ChestOpened then
    Text1.Text := 'Chest is empty'
  else
  begin
    ChestOpened := true;
    Text1.Text := 'You found 50 Gold Pieces, a Short Sword, a Cloth Armor and a Satchel Bag.'
  end;
end;