Einzelnen Beitrag anzeigen

Piwi

Registriert seit: 22. Jan 2003
Ort: Trier
15 Beiträge
 
Delphi 5 Standard
 
#5
  Alt 22. Jan 2003, 22:18
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!
  Mit Zitat antworten Zitat