delphi方法传递参数时能不能传递一个对象
0
[已解决问题]
解决于 2008-08-27 08:30
<P>下面是个函数</P>
<P>function InsertIntoDeptTable(DeptNum: integer;DeptID,<BR> DeptName: string;ParentDeptNum,DeptLevel: integer):boolean;{将部门信息插入到部门表中}</P>
<P>他传递了这么多得参数，我能不能像JAVA那样 现将部门信息封装好了 变成一个部门对象 然后将这个部门对象传递给这个函数呢？ </P>
<P> </P>
最佳答案
0
当然可以了，像你这样，你定义一个TDeptClass类，再声明一个相应的方法即可
function InsertIntoDeptTable(aDeptObj:TDeptClass):boolean;
begin
...aDeptObj.DeptNum...
end;
其他回答(2)
0
能阿 procedure aaaa(a:TObject);
简单的也可以用Record
TdeptInfo = package Record
aa: string;
bb:string;
cc:string;
end;
procedure aaaa(a:TdeptInfo);
当然你也可以生命成指针
PdeptInf = ^TdeptInfo
procedure aaaa(a:PdeptInf);
好久没写Delphi了，快一年了，发现还没生疏，哈哈，过瘾啊，毕竟写了6年了，继续C#中...泪奔....
0
Delphi没用过，唉……