Mit Integer geht es nun, aber jetzt läuft die repeat..until Schleife immer ins nirgendwo.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Rest, Zaehler, Teiler: Integer;
begin
Zahl := StrToInt(Edit1.Text);
Zaehler := 0;
Teiler := 2;
Repeat
Rest := Zahl Mod Teiler;
Zahl := Zahl XOR 2;
Inc(Zaehler);
Until
Rest <> 0;
Label1.Caption := FloatToStr(Zaehler);
end;
Dabei sollte sie ja eigentlich stoppen sobald Rest <> 0 wird, tut sie irgendwie nicht.
Ne Idee woran das liegen mag?