Deine Vorbereitungen dürften so nich ganz klappen. Du musst 1x Würfeln vorziehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
w1.wuerfeln(); // 1x vorwürfeln
anzahl:=1; // 1x wurde ja nun gewürfelt
repeat // wiederhole ... (1)
ergebnis:=w1.augenLesen(); // bisheriges Ergebnis merken
w1.wuerfeln(); // neu würfeln
Inc(anzahl); // erhöhe die Anzahl
until ergebnis=w1.augenLesen(); // (1) ... bis das gemerkte ergebnis mit den Augen übereinstimmt
label1.caption:='Versuche:'+inttostr(anzahl); // Ausgabe
end;
@ Kroko:
Deine Version knallt weil es spätestens nach der Überprüfung auf Ungleichheit und deren Folge wieder gleich ist, die Anzahl wäre also immer 1