function TForm1.abc(arr: array of Byte; w, h: Integer): Boolean; Type tArr = Array[1..10,1..10] of Byte; pArr = ^tArr; var I:integer; pdata,pdatb:pointer; pa:PArr; begin pa := pArr(@arr[0]);
ShowMessage(IntToHex(integer(pa),8)); end;
function TForm1.abc2(arr: array of Byte; w, h: Integer): Boolean; Type tArr = Array of array of Byte; pArr = ^tArr; var I:integer; pdata,pdatb:pointer; pa:PArr; begin pa := pArr(@arr[0]);
ShowMessage(IntToHex(integer(pa),8)); end;
procedure TForm1.Button1Click(Sender: TObject); var x:Array of Byte; I:Integer; begin setlength(x,100);