Delphi Dezimal in Dual - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Dezimal in Dual

Ein Thema von KermitFrosch · begonnen am 21. Feb 2004 · letzter Beitrag vom 21. Feb 2004

Vorheriger Beitrag

Nächster Beitrag

KermitFrosch

Registriert seit: 26. Jan 2004
Ort: Hamburg
57 Beiträge

Dezimal in Dual

21. Feb 2004, 00:45

Also, ich möchte eine dezimalzahl in eine dualzahl umwandeln, doch irgendwie funzt mein code nicht...

zusammenfalten · markieren

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;