Repeat-Until Schleife

In diesem Beispiel werden folgende Variablen benötigt.

x Typ: Integer

y Typ: Integer

a Typ: Integer

b Typ: Integer

IF x < y THEN BEGIN
  REPEAT;
    x += 1;
    a -= 1;
  UNTIL x = y;
  b := x;
END;

Diese Schleife wird gestartet wenn der Wert der Variable x kleiner ist wie der Wert der Variable

y. Ab dann wird der Code zwischen REPEAT; und UNTIL x = y; solange ausgeführt bis durch das Inkrementieren

der Variable x diese den selben Wert hat wie y.

Sobald dies der Fall ist wird die Schleife Verlassen und nach dem UNTIL...; fortgefahren.

Vor allem wenn Datensätze durchlaufen werden sollen ist diese Schleife oft das Mittel der Wahl.

In diesem Beispiel wird eine Variable Contact vom Typ Record mit dem Subtype "Contact" benötigt.

IF Contact.FINDFIRST THEN
  REPEAT
    CODE;

    CODE;
  UNTIL Contact.NEXT = 0;

Hier wird in der Tabelle Kontakt geprüft ob Datensätze existieren und falls dies der Fall ist wird

der erste Datensatz(Abhängig von der Sortierung durch den Primärschlüssel) ausgewählt.

Durch die Funktion NEXT wird bei jedem durchlauf der Schleife ein neuer Datensatz ausgewählt,

bis kein "nächster" Datensatz mehr vorhanden ist.