Code:
procedure TForm1.binaerbuttonClick(Sender: TObject);
var dezimalzahl,startwert,dualziffer,i:integer;
begin
dezimalzahl:=strtoint(ausgabe.caption);
startwert:=128;
ausgabe.caption:='';
for i:=1 to 8 do begin
dualziffer:=startwert div dezimalzahl;
ausgabe.caption:='ausgabe.caption'+inttostr(dualziffer);
dezimalzahl:=startwert mod dezimalzahl;
startwert:=startwert div 2;
end; //of for
end;
So funktioniert das Programm jetzt, allerdings gehts noch net richtig, weil er mault, ich würde Division durch Null machen! Dabei hab ich doch extra den Div-Befehl bzw den Mod-Befehl benutzt!