求救二维动态数组做参数传递问题！！！

Question

试试 array of array of single
function GetCont(var CombH:array of array of single;var CombHT:array of array of single):
boolean;

Answer 1

你应该将CombH,CombHT也定义为动态数组。静态数组不能直接传给动态数组。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 2

type
pSingles:^array[0..2,0..2] of single;
传指针
function GetCont(CombH:Psingles;var CombHT:Psingles):
boolean;调用的时候
flag:=GetCont(@CombH,@CombHT);
这样就可以在函数里改数组的长度了。

Answer 3

在GetCont中，外面传来的数组和自动确定GetCont中的动态数组长度。所以GetCont中的数组不需要再用SetLength。直接可以使用了。—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 4

to xml1123
好像这样写不行阿，我刚才试了一下。
为什么会类型不匹配呢？

Answer 5

It should be better to use Streams to store binary data.

Answer 6

var CombH,CombHT: array of array of Integer;
  I: Integer;
begin
  SetLength(CombH,3);
  SetLength(CombHT,3);
  for I := 0 to High(CombH) do
  begin
    SetLength(CombH[I],3);
    SetLength(CombHT[I],3);
  end;
………………
  flag:=GetCont(CombH,CombHT);end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 7

我这里的数组不是存的二进制数据，我是放的是单精度阿，我知道在c里面只要传数组首地址就可以共享内存区域，实现返回数据的功能。现在在delphi里用动态数组怎么实现呢？
我想用一个数组在两个函数件实现数据共享，使得在一个子程序里处理的数据可以在另一个程序中得到使用。

Answer 8

to  lxpbuaa:
还不行啊！！在getcont函数申明里function GetCont(var CombH:array of array of single;var CombHT:array of array of single):
boolean;
报  Identifier expected but 'ARRAY' FOUND在flag:=GetCont(CombH,CombHT);里报
Incompatible types 'array' and 'dynamic array'

Answer 9

type 
  TDoubleArrSingle = array[0..2, 0..2] of Single;function GetCont(var CombH: TDoubleArrSingle; var CombHT:TDoubleArrSingle): Boolean;

Answer 10

type T2DArySgl = array of array of single;  CombH,CombHT:T2DArySgl;
...
  flag:=GetCont(CombH,CombHT);...
function GetCont(var CombH:array of single;var CombHT:array of single):
boolean;
...
  SetLength(CombH,3);
  for i := 0 to 2 do 
  begin
    SetLength(CombH[i],3);
  end;
  ...

Answer 11

如果你不需要动态分配的话，也可以这样：
type
  T3X3Matrix= array [0..2,0..2] of single;
...
  CombH,CombHT:T3X3Matrix;
...
  flag:=GetCont(CombH,CombHT);...
function GetCont(var CombH:T3X3Matrix;var CombHT:T3X3Matrix):
boolean;