delphi7 repeat until () 怎么用 来个例子

Delphi 7 中的 `Repeat...Until` 语句是一种循环结构，它会持续执行一段代码，直到满足给定的条件为止。这种循环通常用于当有一个明确的结束条件时，比如计数到某个数值，或者检查一个条件是否变为真。

下面是一个简单的例子，假设我们想要编写一个程序，让用户输入数字，直到他们输入 'quit'：

var
  InputValue: string;
begin
  Repeat
    WriteLn('请输入一个数字 (输入 "quit" 结束): ');
    ReadLn(InputValue);
    
    // 检查用户输入是否为 'quit'
    if InputValue <> 'quit' then
      Continue;  // 如果不是 quit，继续下一轮循环
  Until InputValue = 'quit';  // 当输入 'quit' 时，退出循环
  
  WriteLn('你已经结束了输入！');
end.

在这个例子中，`Repeat` 开始了一个循环，然后读取用户的输入并检查是否等于 'quit'。如果不是 'quit'，就通过 `Continue` 跳过本次循环剩余的部分，并进入下一次循环。一旦用户输入了 'quit'，`Until` 后的条件不再满足，循环就会终止。