void __fastcall TForm1::Button1Click(TObject *Sender)
{
int dualzahl, schleifenzaehler, temp, teiler=32768;
String ausgabe="";
dualzahl=StrToInt(Edit1->Text);
for(schleifenzaehler=15; schleifenzaehler>=0; schleifenzaehler--) {
temp=dualzahl/teiler;
if(temp>=1) {
ausgabe+="1";
dualzahl-=teiler;
} else {
ausgabe+="0";
}
teiler/=2;
}
Edit2->Text=ausgabe;
}
//---------------------------------------------------------------------------