[gelöst] repeat until abbruch

28. Januar 2011 11:45

Hallo,

ich habe eine einfache Tabelle mit Optionswerten Ja und Nein. In der Programmierung konnte konnte ich die Tabelle
zum Beispiel auf folgende datensätze gefiltert.

Ja
Ja
Nein
Ja
Nein

Es sind nun fünf Datensatzen gefiltert. MIt Repeat until rec.next = 0 kann ich alle Datensätze durchlaufen lassen.
Ich will aber nicht alle Datensätze durchlaufen lassen. Wie kann ich machen das nur Datenzätze durchlaufen wird bis das erste Nein kommt?

Also beim ersten Nein (3.Datensatz) will ich aus der Schleife aussteigen
Folgender Versucht hat bei mir nicht funktioniert

Repeat
until rec.next = rec."Optionswert" = Nein
Zuletzt geändert von dai am 14. Februar 2011 16:57, insgesamt 1-mal geändert.

Re: repeat until abbruch

28. Januar 2011 12:06

Code:
REPEAT
UNTIL (DeinRec.NEXT = 0) OR (DeinRec.Optionsfeld = DeinRec.Optionsfeld::Nein);


Sollte es sich in Wirklichkeit um ein Booleanfeld (das Ja/Nein-Feld mit einem Häkchen statt Wort) handeln:
Code:
REPEAT
UNTIL (DeinRec.NEXT = 0) OR (DeinRec.Booleanfeld = FALSE);

Re: repeat until abbruch

28. Januar 2011 12:21

Hallo,

versuch mal:
Code:
ExitVar := false;
If FINDSET then
  while (Variable = ja) and not ExitVar do 
    begin
        .... Some Code...
      Exitvar := next=0;
    end;


Sollte etwas besser funktionieren, weil er schon den ersten Datensatz berücksichtigt.

Gruß, Fiddi