/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
bin/Lib/PointerTools.pas
23 строки
604 B
Mikhalkovich Stanislav
Mikhalkovich в Copyright
28 июл 2019, 23:53
28 июл 2019, 23:53
e603b1f
Код
Авторство
О чём код?
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (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.