⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 c_html.pc

📁 Delphi脚本控件
💻 PC
字号:
<?pax
var
  num_tries, num_to_guess = 40, Message = "";

#define declare_off

if (HasProperty("number_tries"))
  num_tries = number_tries + 1;
else
  num_tries = 0;

if (!HasProperty("guess"))
  Message = "Welcome to the guessing machine !";
else if (toInteger(guess) > num_to_guess)
  Message = guess + " is to big. Try a smaller number";
else if (toInteger(guess) < num_to_guess)
  Message = guess + " is too small. Try a large number";
else
  Message = "Well done!";
  
#define declare_on

?>

<html>
<body>
\%s=Message
<br>
Guess number: <?pax print num_tries; ?>

<form action="<?pax print PAX_SELF; ?>" method="POST">
Type your guess here: <input type="text" name="guess">
<input type="hidden" name="number_tries" value="<?pax print num_tries; ?>">
</form>
</body>
</html>


⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -