TInterleave

type TInterleave = class(TObject)

public

  class function Expand8to16();

  class function Expand16to32();

  class function Expand32to64();

  class procedure Expand64To128();

  class procedure Expand64To128Rev();

  class function Shuffle();

  class function Shuffle2();

  class function Unshuffle();

  class function Unshuffle2();

end;

TInterleave

TObject