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);会报错该问题如何解决
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);会报错该问题如何解决
上面的是个类
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);
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);
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