TObject::ClassName：获取类名
获取类名。
如果父类指针指向的是子类，通过父类指针获取类名，得到的是子类的类名。
函数原型：
| __classmethod UnicodeString __fastcall ClassName(); |
头文件：
#include <System.hpp>
命名空间：
System
参数：
无
返回值：
类名，不包含命名空间的类名，支持 UNICODE，返回的类名为 UnicodeString 类型的字符串
例1：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowMessage(Sender->ClassName());
} |
例2：
namespace Victor {
class 我的类型 : public TObject
{
public:
};
} // namespace Victor
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Victor::我的类型 *MyObj = new Victor::我的类型;
Memo1->Lines->Add(MyObj->ClassName());
delete MyObj;
} |
兼容性：
相关链接：
• TObject::QualifiedClassName • TObject::ClassNameIs • TObject • VCL基础类
|
