Consider the following unit:

Unit1;    interface    type
    TAClass = class
    end;
{...}

Is there any way to get the name of the unit (i.e. 'Unit1') and the name of the class (i.e. 'TAClass') without actually creating an object of class TAClass?

我想應該是不可能吧

引言:我想應該是不可能吧

I think so. class="code">type { copied from System.pas, it was 'private' there } PTypeInfo = ^TTypeInfo; TTypeInfo = packed record Kind: Byte; Name: ShortString; {TypeData: TTypeData} end; {...} MessageDlg(PTypeInfo(TypeInfo(TAClass))^.Name, mtWarning, [mbOK], 0);

引言: I think so. >< face="Verdana, Arial, Helvetica"> 那是當然, 因為Class Information已經放在VMT中了,Class之Define本來就與是否Create Instance無關 實際上, TObject(所有class均由此繼承)有一class method-->ClassName, 故不須Create直接TAClass.ClassName即可取得classname TObject還有更多Class Method如Classinfo等, 主要均是在Access VMT 發表人 - ccchen 於 2002/12/06 09:56:00