定义: type myclass = class private { Private declarations } public { Public declarations } procedure xxx(); end;procedure myclass.xxx(); begin ....... ....... end;调用: y:myclass; y.xxx();
上面的写法有错误!!!调用:Var Y : MyClass Begin Y := TMyClass.Create; Try Y.XXX; Finally Y.Free; End; End;
new一般是对普通变量,如指针等赋值。
从class到object,然后申明一个对象名称,就没问题了。
type
myclass = class
private
{ Private declarations }
public
{ Public declarations }
procedure xxx();
end;procedure myclass.xxx();
begin
.......
.......
end;调用: y:myclass;
y.xxx();
Y : MyClass
Begin
Y := TMyClass.Create;
Try
Y.XXX;
Finally
Y.Free;
End;
End;