好像是这样,没试。
function Change(V: Integer): Integer;
var
I: Integer;
Src, Dst: PByte;
begin
Src := @V;
Dst := Pointer(Integer(@Result) + SizeOf(Integer));
for I := 0 to SizeOf(Integer) - 1 do
begin
Dst^ := Src^;
Inc(Src);
Dec(Dst);
end;
end;
好像是这样,没试。
function Change(V: Integer): Integer;
var
I: Integer;
Src, Dst: PByte;
begin
Src := @V;
Dst := Integer(@Result) + SizeOf(Integer);
for I := 0 to SizeOf(Integer) - 1 do
begin
Dst^ := Src^;
Inc(Src);
Dec(Dst);
end;
end;