Applications should rarely, if ever, use TClass directly.I'm Sorry.
各位不要用英文,小子E文只识ABC,能不能用些例子,谢谢
to Ctrl+C;Ctrl+V: //看看Classes.pas的例子吧procedure TForm1.Button1Click(Sender: TObject); begin with TMyClass.Create(Self) do try ShowModal; finally Free; end; end;
关于物件参考(Object reference)与类别参考(Class reference): type TMyClass = class of TForm; 宣告了关于TForm的一个类别参考,意即C++中的别名。 var MyClass: TForm; 宣告了关于TForm的一个物件参考。注意点: 建构函数呼叫物件参考时将初始化一个物件的所有栏位,并返回一个指向此物件的指针。 ...........物件参考时并不.............任何栏位,只简单的返回一个指向此物件的指针。 指定兼容时适时调用物件参考建构ADT。
//看看Classes.pas的例子吧procedure TForm1.Button1Click(Sender: TObject);
begin
with TMyClass.Create(Self) do try
ShowModal;
finally
Free;
end;
end;
type
TMyClass = class of TForm;
宣告了关于TForm的一个类别参考,意即C++中的别名。
var
MyClass: TForm;
宣告了关于TForm的一个物件参考。注意点:
建构函数呼叫物件参考时将初始化一个物件的所有栏位,并返回一个指向此物件的指针。
...........物件参考时并不.............任何栏位,只简单的返回一个指向此物件的指针。
指定兼容时适时调用物件参考建构ADT。
//MyClass这用
zswang方法:可以生成一个TMyClass指向的类的一个对象,但是它是不会用到构造函数中初始的部分,只是有一个实例指针而已? 那它应该可以用TMyClass中的那些公有的函数吧?
MyClass: TMyClass;
MyForm: TForm;
to initora
"指定兼容时适时调用物件参考建构ADT。 "这句是什么意思?我刚明白面向对象的意思,不理解你的意思.