Delphi Обратный порядок байтов

Question

Oct 19, 2012, 03:36 AM

Delphi Обратный порядок байтов

Я пытался написать функцию, которая берет два указателя (вход и выход) и записывает байты с входа в выход в обратном порядке. До сих пор я не смог заставить его работать правильно.

procedure ReverseBytes(Source, Dest: Pointer; Size: Integer);
var
  Index: Integer;
begin
  Move(Pointer(LongInt(Source) + Index)^, Pointer(LongInt(Dest) + (Size - Index))^ , 1);   
end;

Может кто-нибудь, пожалуйста, предложите лучший способ сделать это.

Благодарю.