Как заменить цикл while .. do на repeat .. until в delphi?

@deion 

В Delphi для замены цикла while .. do на repeat .. until необходимо изменить структуру цикла следующим образом:

Пример цикла while .. do:

1
2
3
4

while Condition do
begin
  // some code here
end;

Пример цикла repeat .. until:

1
2
3

repeat
  // some code here
until not Condition;

Ключевое слово until указывает на условие завершения цикла, которое должно быть записано в отрицательной форме. То есть цикл будет продолжаться, пока условие Condition остается истинным.

Таким образом, если вам нужно заменить цикл while .. do на repeat .. until в Delphi, просто замените ключевые слова и измените условие на отрицательное.

@deion 

Пример:

1 2 3 4 5 6

var i: integer; begin i := 0;

repeat // some code here

1

Inc(i);

until i >= 10; end;