您的位置：程序门 -> delphi -> 网络通信/分布式开发

怎么传递类型为类（class）的参数啊

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

怎么传递类型为类（class）的参数啊

发表于：2008-01-14 20:37:46 楼主

怎么传递类型为类（class）的参数啊
例如：
var
form1:tform1
form1:=tform1.create（self)
form1.show（)

tform1 类型是 class（tform）
我想把tform1 变为参数形式，可是不知到用什么类型；

procedure test（作为参数的tform1)；
begin
然后操作作为参数的tform1
end;

发表于：2008-01-14 20:40:521楼得分:0

type
tmyform=class of tform1;
...

procedure test（myform: tmyform);
begin
end;

发表于：2008-01-14 20:55:272楼得分:0

delphi（pascal) code

procedure test（aform: tform);
begimn
  aform.show;
end;

发表于：2008-01-14 22:37:463楼得分:0

传递类要使用类引用。

type
tformclass: class of tfrom

procedure test（aform: tformclass);
begin
end;

发表于：2008-01-15 10:14:314楼得分:0

支持三楼.用类引用.二楼也可行

下一篇：delphi中如何使用socket直接发送接收byte数组？
上一篇：股票软件

其他资讯