Also, ich möchte eine dezimalzahl in eine dualzahl umwandeln, doch irgendwie funzt mein code nicht...
Delphi-Quellcode:
procedure TForm1.btnumwandelnClick(Sender: TObject);
var
dezi,dual,rest:Integer;
begin
dezi:=StrToInt (edteingabe.text);
repeat
rest:=dezi mod 2;
dezi:=dezi div 2;
dual:=rest+dual;
until
dezi = 0;
edtausgabe.Text:=InttoStr (dual);
end;
kann mir jemand sagen warum?
thx