如何在Delphi中进行测验?

时间:2015-04-01 08:09:22

标签: delphi

我必须在学校进行测验,但是当用户点击按钮将其发送到下一个问题时,我在更改问题和答案时遇到问题。 我尝试使用Case在单击按钮时更改问题,但它似乎不起作用。 所以现在我甚至不知道如何启动该程序。 我有: 标签 - 当用户点击按钮时,这会更改为下一个问题。 RadioGroup - 这可以解决问题的答案,这也需要改变。 按钮 - 当用户点击按钮时,RadioGroup和Label会发生变化。 那么我应该写什么来确保当用户点击按钮时问题会发生变化? 感谢。

1 个答案:

答案 0 :(得分:1)

Onclick()中的代码结构可能如下所示:

  // (1) Save the response selected
  ...
  // (2) Increment counter
  Inc(ActualQuestion);
  //..
  // (3) Get the next Question/Responses
  GetQuestion(ActualQuestion);

(1)和(3)将取决于您如何存储问题和答案。

您可以从数据库,磁盘上的文件,内存中的数组......

获取