Delphi反转顺序字节 [英] Delphi Reverse order of bytes
本文介绍了Delphi反转顺序字节的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我一直在尝试编写一个使用两个指针(一个输入和一个输出)的函数,并将输入的字节以相反的顺序写入输出。到目前为止,我无法使其正常工作。
I have been trying to write a function that takes two pointers (an input and an output) and writes the bytes from the input into the output in reverse order. So far I have not been able to make it work correctly.
procedure ReverseBytes(Source, Dest: Pointer; Size: Integer);
var
Index: Integer;
begin
Move(Pointer(LongInt(Source) + Index)^, Pointer(LongInt(Dest) + (Size - Index))^ , 1);
end;
任何人都可以建议一个更好的方式来做到这一点。
Can anyone please suggest a better way of doing this.
谢谢。
推荐答案
procedure ReverseBytes(Source, Dest: Pointer; Size: Integer);
var
Index: Integer;
begin
for Index := 0 to Size - 1 do
Move(Pointer(LongInt(Source) + Index)^,
Pointer(LongInt(Dest) + (Size - Index - 1))^ , 1);
end;
procedure TForm2.Button2Click(Sender: TObject);
var
s: AnsiString;
P: Pointer;
begin
s := #0'testreverse';
GetMem(P, Length(s));
ReverseBytes(Pointer(s), P, Length(s));
ShowMessage(PAnsiChar(P)); // esrevertset
FreeMem(P);
end;
这篇关于Delphi反转顺序字节的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文