@Ratte:
Ein beliebter Fehler: statt "mod 255" muß es "mod 256" heißen
@renekr:
Hier noch eine kürzere Variante Deiner letzten Version (ohne DIV, MOD und Stringverkettung):
Delphi-Quellcode:
function ByteToBinStr (aValue: Byte): string;
var ii : Integer;
begin
// Ergebnis initialisieren
Result := '00000000';
// 8 Bits testen
for ii := 0 to 7 do
// Bit Nummer i prüfen
if Odd(aValue shr ii) then
// Falls Bit gesetzt ist, Ergebnis anpassen
Inc (Result[8 - ii]);
end;
Gruß Hawkeye