How to reverse array of any type?

[himitsu]

Delphi-Quellcode:

procedure ReverseArray(AData: Pointer; const ASize, ACount: Integer);
var
  Temp: array of Byte;
  Data: PAnsiChar absolute AData;  // PAnsiChar verfügt über Zeiger-Arithmetik
  i, j: Integer;
begin
  SetLength(Temp, ASize);
  i := ACount div 2 - 1;
  while i >= 0 do begin
    j := ACount - i - 1;
    Move(Data[i * ASize], Temp[0], ASize);
    Move(Data[j * ASize], Data[i * ASize], ASize);
    Move(Temp[0], Data[j * ASize], ASize);
    Dec(i);
  end;
end;