diff options
| -rw-r--r-- | lowlevelunit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index 0bc4c33..fa4fa4b 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -654,7 +654,7 @@ var i: longint; begin result:=''; - for i:=0 to cnt-1 do + for i:=cnt-1 downto 0 do result:=result+inttohex((pByte(p)+i)^,2); end; |