while-schleife unterbrechen

[RuX]

Zitat von JSB:

Delphi-Quellcode:

while doit do
if bedingung then
   nichts;
else
   Anweisungen;

oder du machst einfach

Delphi-Quellcode:

while doit and (not bedingung) do
  Anweisungen;