Ich verstehe leider nicht ganz, was die Prozedur machen soll.
Einen Speicherbereich mit einer bestimmten Anzahl Bits füllen?
Also ähnlich wie FillChar() einen Bereich mit einer bestimmten Anzahl Bytes füllt?
Wär das nicht in etwa so etwas:
Delphi-Quellcode:
PROCEDURE FillBits(VAR Data; NumBits: integer);
BEGIN
IF NumBits > 7 then
FillChar(Data, NumBits shr 3, #$FF); // Die vollständigen Bytes auf einen Rutsch füllen
// Die restlichen Bits eintragen...
Tbytearray(Data)[NumBits shr 3] := Tbytearray(Data)[NumBits shr 3] or ($FF shl (NumBits and $07) shr 8);
END;
Diese Routine füllt in den angegebenen Speicher "NumBits" Bits. Die restlichen Bits bleiben unangetastet. (Das war zumindest die Intention...
)
Ich weiß nicht, ob es sich hier lohnt, das in Assembler zu übersetzen. FillChar läuft u.U. eh schon mit 32Bit Unterstützung (will sagen, es füllt die Bytes nicht einzeln, sondern immer gleich in 4er Paketen). Kann mich natürlich täuschen.
Und vermutlich hab' ich die Aufgabe mal wieder nicht verstanden....
Gruß
Michael