type
THsm=class(TObject)
public:
aPro:array of integer;
pHead:pFileHeadInfo;procedure setPro(num:integer);
procedure allocHead(num:integer);
end;procedure setPro(num:integer);
begin
SetLength(arr,num);
end;
procedure allocHead(num:integer);
begin
New(pHead);
end;我在主程序中定义个一个THsm的对象,Test
当我调用Test.setPro()和Test.allocHead()时报错,这是什么原因?
THsm=class(TObject)
public:
aPro:array of integer;
pHead:pFileHeadInfo;procedure setPro(num:integer);
procedure allocHead(num:integer);
end;procedure setPro(num:integer);
begin
SetLength(arr,num);
end;
procedure allocHead(num:integer);
begin
New(pHead);
end;我在主程序中定义个一个THsm的对象,Test
当我调用Test.setPro()和Test.allocHead()时报错,这是什么原因?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货