Delphi新手求助，过程中数组参数怎样传值

Question

type
  h=array[1..64]of integer;
procedure Dis_Memo(A:h);
声明的时候没有报错外部
type 
  h=array[1..64]of integer;
  h1,h2:h;想把h1传给Dis_Memo的过程中
Dis_Memo(h1);会报错该问题如何解决

Answer 1

再重新补充一下
上面的是个类
type
 TA = class
type 
  h=array[1..64]of integer; 
procedure TA.Dis_Memo(A:h);type  
  h=array[1..64]of integer; 
  h1,h2:h;var
  A:TA;
A.Dis_Memo(h1);
 

Answer 2

h=array[1..64]of integer;只声明一次，放在最前面！！
type
  h=array[1..64]of integer;  //声明数据类型type                       //声明类TA
 TA = class
 procedure Dis_Memo(A:h);
end;var
  A:TA;
  Form1: TForm1;
   h1,h2:h;
implementation{$R *.dfm}
   procedure TA.Dis_Memo(A:h);
 begin
 //////////代码略
 end;
然后调用  A:=TA.Create;
         A.Dis_Memo(h1);

Answer 3

看了半天才明白楼主的意思，，，声明和调用出现问题
unit BomForm;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons,MainForm,
  ToolWin, ExtCtrls;type
  Tbom = class(TForm)
    TreeView1: TTreeView;
  
  private
    { Private declarations }
  public
    { Public declarations }
    ratio,num:double;
    procedure showtree();
   function checknode(pnode:Ttreenode):integer;
 end;
type
 Ttable=array[1..200,1..3] of string;
 Tnodetable=array[1..200] of TTreeNode;
var
  bom: Tbom;
  mytable:TTable;
  mynodetable:Tnodetable;
可以看看上面的example
  

Answer 4

Dis_Memo(h1);会报错,解决办法：Dis_Memo(@h1);