盒子论坛 v2.1

想把动态一维数组转成动态二维数组

也就是abc2 和abc功能一样。因为 arr动态的=w*h   因为arr不定  w*h也就不定了。请问一下有什么方法实现

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);

  for I := Low(x) to High(x) do
      x[I] := 100+I;

  Self.abc(x,10,10);
end;
----------------------------------------------
-

作者：

1111111112 (1111111112)	▲△△△△	-
	普通会员

2023/5/25 10:15:35

1楼：

这玩意在内存里面是一样的吧
二维的概念只在编程里面吧并非内存结构.?
----------------------------------------------
-

作者：

wk_knife (wk_knife)	★☆☆☆☆	-
	盒子活跃会员

2023/5/25 16:56:31

2楼：

根本不用转，自己写个函数传递二维的两个索引，返回一维数组相应的位置的对象就好了。
----------------------------------------------
-

作者：

myy (myy)	★☆☆☆☆	-
	盒子活跃会员

2023/5/26 11:18:24

3楼：

就是求第 h 行，第 w 列，对应的是总数的第几个，小学数学题嘛。。
----------------------------------------------
-

作者：

ihvte (无痕)	★☆☆☆☆	-
	普通会员

2023/6/2 12:04:09

4楼：

首先非常感谢大家的回复

知道可以通行 * 数组的宽 + 列就可以把一维数组转换成二维来操作数据。

因使用地方不同，只能把一维动态数组转成了二维动态指针后传给别人使用，又没法让它来修改代码就造成了现在的问题

请问各位有什么方法吗？
----------------------------------------------
-

信息

登陆以后才能回复