pascalabcnet/bin/Lib/PointerTools.pas

// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)

unit PointerTools;

procedure WriteMemoryToScreen(p:pointer; Count,InLineCount:integer);
var i: integer;    
    val: byte;
begin
  for i:=1 to Count do begin
    val:=PByte(p)^;
    Write(string.Format('{0} ',val));    
    p:=pointer(integer(p)+1);
    if i mod InLineCount = 0 then Writeln; 
  end;
end;

procedure WriteMemoryToScreen(p:pointer; Count:integer);
begin
  WriteMemoryToScreen(p,Count,4);
end;

end.