Forum: Sonstige Fragen zu Delphi
by p80286,
24. Mär 2010
Ist doch relativ einfach:
Wenn Du ein Zeichen (Byte) binär darstellen willst, bekommst Du einen String der 8 Zeichen Lang ist.
also so etwas 01010100.
Result:=' ';
dann werden alle Bits von "oben" nach "unten" (most signigficant/least significant ?)
in den String übertragen:
result:=bina;
result:=bina;
Forum: Sonstige Fragen zu Delphi
by p80286,
24. Mär 2010
versuch es doch einmal mit dieser Simpellösung:
function Byte2Bin(inbyte:byte):string;
const
bina:array of char=('0','1');
begin
result:=' ';
result:=bina;
result:=bina;
result:=bina;