FIFO-Array, gibt es soetwas?

[Amateurprofi]

Zitat von Alter Mann:

Hallo,

ich habe ein kleines Problem: Ich brauche eine sehr schnelle Möglichkeit Bytes
innerhalb eines Array zu verschieben. So etwas wie:

Delphi-Quellcode:

procedure AddByte(aByte : Byte; Dest : TByteArray);
var
  I : WORD;
begin
  for I := Low(Dest) to High(Dest) -1 do
   Dest[I] := Dest[I+1];
  Dest[High(Dest)] := aByte;
end;

Gibt es da etwas?
Danke

Vielleicht so? (nicht getestet)

Delphi-Quellcode:

procedure AddByte(aByte : Byte; Dest : TByteArray);
begin
   Move(Dest[Low(Dest)+1], Dest[Low(dest)], High(dest)-Low(Dest));
   Dest[High(Dest)] := aByte;
end;