Hallo Mario,
ich würde die buffer segments in einer Liste ablegen. Zusammenschieben kannst du sie immer noch, wenn es denn irgendwann nötig ist.
Der Code am Anfang zählt die Nullen und Einsen?
Delphi-Quellcode:
var
iByte, iBit: Integer;
b: Byte;
pb: PByte;
begin
pb := PByte(Buffer);
for iByte := 1 to Size do
begin
b := pb^;
for iBit := 1 to 8 do
begin
Inc(FBitsValCount[b and 1]);
b := b shr 1;
end;
Inc(pb);
end;
bl.Add(Buffer); // immer 1024 Byte?
Result := False;
end;
Grüße vom marabu