PmyArray = ^Tmyarray;
TmyArray = array[0..$ffff] of byte; //я так понимаю именно такая размерность. можно и динамический ))
function GetElement(pt: PmyArray;element:cardinal):byte;
begin
result := P^[element];
end;
__________________
L2Ext - project closed.
|