Tach,
Ascii Code hab ich über ein Edit Feld über den Befehl ord(key) in ein panel einlesen lassen. jetzt will ich erreichen, dass auf diesem Panel der
ascii code des eingetippten buchstaben auf buttondruck in den entsprechenden binärcode umgewandelt wird.
ich bin mit einer forschleife folgendermaßen vorgegangen:
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:=inttostr(ausgabe.caption)+dualziffer;
dezimalzahl:=startwert mod dezimalzahl;
startwert:=startwert div 2;
end; //of for
end;
Der Fehler soll Delphi nach in der Schleife dort in der zweiten Reihe liegen. Ich muss es hinbekommen, dass er die 8 Stellen aneinander reiht, da muss der Fehler liegen, HELP!
Danke im Vorraus!
[/code]