Guten Mittag,
folgender Quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Rest: real;
Zaehler, Teiler: Integer;
begin
Zahl := StrToFloat(Edit1.Text);
Zaehler := 0;
Rest := 0;
Teiler := 2;
Repeat
Rest := Zahl Mod Teiler; //<--[Fehler] Teiler.pas(37): E2015 Operator ist auf diesen Operandentyp nicht anwendbar
Zahl := Zahl / 2;
Until
Rest <>0;
Label1.Caption := FloatToStr(Zaehler);
end;
Wo liegt der Fehler? Finde ihn nicht.