德爾福自我指針的使用

Question

我需要在這個實例中獲取我的類實例的指針。我不能直接使用「Self」，我需要存儲指針以備將來使用。我想下面的代碼：

type 
    TTest = class(TObject) 
    public 
     class function getClassPointer: Pointer; 
     function getSelfPointer: Pointer; 
    end; 

class function TTest.getClassPointer: Pointer; 
begin 
    Result := Pointer(Self); 
end; 

function TTest.getSelfPointer: Pointer; 
begin 
    Result := Pointer(Self); 
end; 

而且兩者的結果是錯誤的 - 這樣的代碼：

test := TTest.Create; 
Writeln('Actual object address: ', IntToHex(Integer(@test), 8)); 
Writeln('Class "Self" value: ', IntToHex(Integer(test.getClassPointer()), 8)); 
Writeln('Object "Self" value: ', IntToHex(Integer(test.getSelfPointer()), 8)); 

回報：

Actual object address: 00416E6C 
Class "Self" value:  0040E55C 
Object "Self" value:  01EE0D10 

請幫助我瞭解，這是什麼 「自我」 的價值？ 「Self」是這個類實例的指針嗎？如何將此指針用於此對象之外的未來使用？如何從這個值得到正確的指針？

Answer 1

你試圖比較三種完全不同的實體。

@test返回變量測試的地址，而不是它指向的對象實例。

test.getClassPointer（）返回類元數據的地址，由編譯器生成的常量數據結構，運行時可以找到虛擬方法表，運行時類型信息表等等。一個類的所有實例共享相同的類元數據結構。類元數據的指針是對象實例的類型標識 - 對象如何知道它在運行時的類型。

test.getSelfPointer（）爲您提供內存中對象實例的實際地址。兩個對象實例（單獨創建）將具有不同的實例地址。 test.getSelfPointer（）將等於測試實例變量的內容：指針（測試）

例如（僞代碼，未測試）：

type TTest = class 
    end; 

var test1: TTest; 
    test2: TTest; 

begin 
    test1 = TTest.Create; // allocates memory from the global heap, stores pointer 
    test2 = test1;   // copies the pointer to the object into test2 variable 
    writeln("Test1 variable points to: ", IntToHex(Integer(Pointer(test1)))); 
    writeln("Test2 variable points to: ", IntToHex(Integer(Pointer(test1)))); 
end. 

Answer 2

在你的代碼片段test已經是參考的真實情況，所以你應該嘗試

Writeln('Actual object address: ', IntToHex(Integer(Pointer(test)), 8)); 

而且你可能不需要任何getSelfPointer方法。如果你想要第二個參照對象實例test已經引用，寫：

var 
    SecondReferenceToTest: TTest; 
SecondReferenceToTest := test; 

看到這一點，你可以試試：

type 
    TTest = class(TObject) 
    public 
    Name: string; 
    end; 

procedure TestProc; 
var 
    test, SecondReferenceToTest: TTest; 
begin 
    test := TTest.Create; 
    try 
    test.Name := 'Named via "test" reference'; 
    SecondReferenceToTest := test; 
    ShowMessage(SecondReferenceToTest.Name); 
    finally 
    test.Free; 
    end; 
end;