hexDump in lowlevelunit.pas eingefügt

1 files changed, 11 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 60de043..0bc4c33 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -78,6 +78,8 @@ function tExtPointToStr(p: tExtPoint): string;
 function tIntPointToStr(p: tIntPoint): string;
 procedure fehler(s: string);
 
+function hexDump(p: pointer; cnt: longint): string;
+
 implementation
 
 var _cpuLastUsed,_cpuLastIdle: int64;
@@ -647,6 +649,15 @@ begin
  raise exception.create(s);
 end;
 
+function hexDump(p: pointer; cnt: longint): string;
+var
+  i: longint;
+begin
+ result:='';
+ for i:=0 to cnt-1 do
+   result:=result+inttohex((pByte(p)+i)^,2);
+end;
+
 begin
   _cpuLastUsed:=0;
   _cpuLastIdle:=0;