While-Do

Für dieses Beispiel wird eine Variable I vom Typ Integer benötigt.

I := 0;

WHILE I < 1000 DO BEGIN

    CODE;

    CODE;

I += 1;

END;

Im Gegensatz zur For-To Schleife wird allerdings die Bedingung (Hier ein Integer) bei einem

neuem Durchlauf der Schleife (Evtl. eine Schleife innerhalb einer Schleife) NICHT zurückgesetzt.

Daher wird vor Beginn der Schleife der Integer wert auf 0 zurückgesetzt. Die Bedingung kann innerhalb

sowie außerhalb, durch evtl. Funktionsaufrufe mit Rückgabewerten, verändert werden. In diesem Beispiel

wird der Integer I Inkrementiert.

Hier ein Beispiel für eine While-Do Schleife mit mehreren Bedingungen.

Exit := FALSE;

WHILE ((I < 1000) OR (Exit = FALSE)) DO BEGIN

    CODE;

    CODE;

    HemdFarbe := FunnktionZumPrüfenObDasHemdRotGewordenIst;

    IF HemdFarbe = 'Rot' THEN BEGIN

        Exit := TRUE;

    END;

I := I + 1;

END;

In diesem Beispiel wird die Schleife so lange durchlaufen wie der Wert I kleiner 1000 ist ODER

das "Hemd rot wird" und somit das Boolean "Exit" den Wert "True" übergeben bekommt. Somit lassen

wesentlich mehr Bedingungen festlegen als in einer For-To Schleife, da nicht nur auf Integer verwiesen werden muss.