Unterschied While-Schleife <-> RepeatUntil-Schleife

[Maya]

Du könntest doch einfach ein kleines Progi machen, mit einen Edit-Feld, wo du Zahlen eingibst und zwei Labels, eine für die WHILE-Schleife und eine für die REPEAT-Schleife.

Beim Knöpfchen-Drücken, werden dann die Schleifen mit der eingegebenen Zahl ausgeführt. In den zwei Labels wird dann angezeigt, wie oft die Schleife ausgeführt wurde. Wenn die Schleife

Ich hab da mal was vorbereitet: (bitte das jetzt mit der legendären Jean Pütz-Stimme vorstellen)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zahl: Integer;
    Beschriftung: String;
begin
  if Trim(Edit1.Text)<>'' then
    begin
      Zahl:=StrToInt(Edit1.Text);
      While Zahl<10 do
        begin
          Beschriftung:=lblWhile.Caption+#10#13+IntToStr(Zahl);
          lblWhile.Caption:=Beschriftung;
          Zahl:=Zahl+1;
        end;

      Zahl:=StrToInt(Edit1.Text);
      Repeat
        Beschriftung:=lblRepeat.Caption+#10#13+IntToStr(Zahl);
        lblRepeat.Caption:=Beschriftung;
        Zahl:=Zahl+1;
      Until Zahl<10;
    end;
end;

Ich weiß jetzt nicht, welches Delphi du nimmst, ggf. musst du bei dem Edit halt einstellen, dass da nur Zahlen 'reindürfen (NumbersOnly) oder halt kurz was kleines Schreibseln, dass da nur Zahlen 'rein können.

EDIT: Mir fällt gerade auch auf, dass bei der REPEAT-Schleife sich bei Zahlen, die größer als 10 sind, eine Endlosschleife bildet. Ich war schon immer Meisterin der Endlosschleifen. -.- Ich schau mal, ob ich das behoben bekomme.