मैं कैसे, अगर मैं वर्ग/VMT पता ही

Question

जैसा कि मैंने here पढ़ा है एक वर्ग की इकाई का नाम प्राप्त कर सकते हैं

VMT भी "जादू" क्षेत्रों के एक नंबर जैसे सुविधाओं समर्थन करने के लिए होता है माता पिता वर्ग लिंक, उदाहरण के आकार, वर्ग के नाम, गतिशील विधि मेज, प्रकाशित तरीकों की मेज, प्रकाशित क्षेत्रों मेज, RTTI मेज, जादू क्षेत्रों के लिए प्रारंभ मेज, पदावनत OLE स्वचालन प्रेषण तालिका और कार्यान्वित इंटरफेस तालिका

ऐसा लगता है कि वीएमटी में ऐसे क्षेत्र को शामिल नहीं किया गया है जिसमें यूनिट का नाम है जहां वर्ग परिभाषित किया गया है। क्या कुछ 'कंपाइलर जादू' शामिल है?

Answer 1

मैं नहीं देख सकता कि वीएमटी यहां क्यों शामिल होना चाहिए। TObject पहले से ही class function UnitName का खुलासा करता है।

System.TObject.UnitName

Answer 2

VMT वर्ग RTTI के लिए सूचक (ClassInfo विधि द्वारा प्रदान की) भी शामिल है, कक्षा आरटीटीआई में एक वर्ग इकाई का नाम शामिल है। एक अभ्यास के रूप में आप VMT सूचक से इकाई का नाम प्राप्त कर सकते हैं, मैं इस में लिखा है (डेल्फी XE पर परीक्षण):

uses TypInfo; 

type 
    TObj = class 

    end; 

procedure TForm1.Button3Click(Sender: TObject); 
var 
    Obj: TObj; // dummy obj instance 
    VMT: Pointer; 
    P: Pointer; // class info 

begin 
// you can get VMT pointer so 
    Obj:= TObj.Create; 
    VMT:= PPointer(Obj)^; 
    Obj.Free; 
// or so 
    VMT:= Pointer(TObj); 

    P:= PPointer(PByte(VMT) + vmtTypeInfo)^; 
    if P <> nil then 
    ShowMessage(GetTypeData(P).UnitName); 
end; 

Answer 3

procedure MessageException(E: Exception); 
var 
    TI: TypInfo.PTypeInfo; 
begin 
    TI := E.ClassInfo; 
    if Assigned(TI) then 
    begin 
    Dialogs.MessageDlg(TypInfo.GetTypeData(TI).UnitName + '.' + 
     E.ClassName + ': ' + E.Message, Dialogs.mtError, [Dialogs.mbOK], 0, Dialogs.mbOK); 
    end 
    else 
    begin 
    Dialogs.MessageDlg(E.ClassName + ': ' + E.Message, Dialogs.mtError, [Dialogs.mbOK], 0, Dialogs.mbOK); 
    end; 
end; 

ध्यान दें कि ClassInfo के लिए शून्य परीक्षण किया जाना चाहिए। जैसे SysUtils.ERangeError यह नहीं है।