Zweck der Repeat-Until-Schleife:
Eine Reihe von Anweisungen sollen ausgeführt werden bis eine bestimmte Bedingung vorliegt
zum Beispiel:
Es soll solange gewürfelt werden, bis man eine 6 würfelt
und die benötigte Anzahl der Würfe soll ausgegeben werden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Wurf, Anzahl: Integer;
begin
randomize;
Anzahl:=0;
Repeat
Wurf:=Random(6)+1;
Anzahl:=Anzahl+1;
Until Wurf=6;
ShowMessage('Es waren '+IntToStr(Anzahl)+' Würfe nötig!');
end;
Es wird keine begin-end-Klammer benötigt und die Repeat-Until schleife wird mindestens einmal durchlaufen.
Gruß robkoz
[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]