delphi类的创建

2025-04-16 03:26:30
推荐回答(1个)
回答1:

interface之后,implementation之前的任意位置都可以声明类定义。

interface之后implementation之前都可以用procedure关键字来声明过程,根据位置,其作用域、可见范围都不同

每个过程/函数体前(过程/函数中第一个Begin之前)都可定义并实现子过程/子函数,用于调用、嵌套、递归

相信这样说是比较简单的。
============================================
补充:类是不能直接用的,首先要声明一个该类的实例并创建该实例才能使用,以你的代码为例子,假设窗体为Form1,按钮为Button1,那么应该这样写:

type
myclass=class(object) //最好把父类(祖先类)指明
public
s:string;
end;

....

procedure TForm1.Button1Click(Sender: TObject);
var
my:myclass;
begin
my := myclass.create;//使用前必须先实例化
try
my.s := 'dddd';//给类成员(属性)赋值
button1.caption:=my.s;//读取类成员(属性)
finally
my.free;//最后一定要记住把不再使用的内存释放了
end;

end.
这样可以么?