Delphi 将while循环转换为for循环

如何将while循环转换为for循环

const
  TheRightWord = 'hello';
  MaximumTries = 3;
var
  NTries : integer;
  AWord : string;
begin
  NTries := 1;
  AWord := ' ';
  while (AWord <> TheRightWord) and (NTries <= MaximumTries) do

const
TheRightWord='hello'；
最大值=3；
变量
NTries：整数；
AWord：字符串；
开始
NTries:=1；
AWord:=''；
while（右词）和（右词）
如何在退出循环时确定成功或失败（或者，就此而言，如何迭代不同的“AWord”值）对于学生来说是一个练习：-）
不，我想制作一个询问密码的程序……如果3次尝试失败，它将锁定您，但我想使用for循环而不是while“for”循环不接受布尔语句。这将只是“我：=1到3做”的逻辑，我不明白你为什么需要这个；除非您被迫这样做，否则没有必要将while循环转换为for循环，因为while循环被认为比for循环性能好。严格来说，这是问题的正确答案，但我个人不喜欢使用“break”。出于这个原因，我会首先使用while循环。
for (AWord <> TheRightWord) and (NTries <= MaximumTries) do

  for numtries := 1 to maxnumtries do begin
    if AWord = TheRightWord then
      break;
      ...