Wieviele Daten passen in ein dynamisches Array?

[marabu]

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