【文章內(nèi)容簡介】 =================================================== ⊙ 測試目標：考查 ShortString 返回值類型的函數(shù)沒有賦值時編譯器的實現(xiàn) ======================================================================== procedure Test。 register。 begin 。 lea edx, [ebp$00000100] 。 編譯器會在堆棧中創(chuàng)建 256 byte 的臨時空間，以保證 edx 不會為非法值 mov eax, [$00412eac] call end。 ⊙ 函數(shù)代碼： class function : ShortString。 {$IFDEF PUREPASCAL} begin Result := PShortString(PPointer(Integer(Self) + vmtClassName)^)^。 end。 {$ELSE} asm { EAX VMT } { EDX Pointer to result string } PUSH ESI PUSH EDI MOV EDI,EDX 。 EDX 是返回值串的指針 MOV ESI,[EAX].vmtClassName XOR ECX,ECX MOV CL,[ESI] 。 設置 result string 的 length INC ECX REP MOVSB POP EDI POP ESI end。 {$ENDIF} 結論：這只是我想了解字符串返回值的傳遞方式。 =================== (完 ) =================== 來自： lance2020, 時間： 202013 9:46:00, ID： 2390276 寫的非常好！ 來自： dedema, 時間： 202013 9:57:00, ID： 2390302 這么厲害啊！一個晚上就完成了！ 來自： 積步 , 時間： 202013 10:10:00, ID： 2390324 mark 來自： zhumoo, 時間： 202013 10:26:00, ID： 2390353 高手就是高手 ,學習 . 來自： kk2020, 時間： 202013 15:05:00, ID： 2390894 樓主一個晚上完成，只能說佩服了！ 來自： renyi, 時間： 202013 17:54:00, ID： 2391175 厲害，不知 Delphi 的對象機制和 Java 、 C 相比，哪個個的效率更高？ 來自： einsteingod, 時間： 202013 19:07:00, ID： 2391225 寫的非常好！ 來自： xff916, 時間： 202013 19:49:00, ID： 2391246 牛呀，學習 ，學習，在學習 來自： 積步 , 時間： 202013 19:50:00, ID： 2391248 小弟還有一事不知。 通過 asm訪問類 的私有變量 . TA = class private FA: Integer。 public procedure SetA(Value: Integer)。 end。 var Form1: TForm1。 implementation {$R *.dfm} procedure (Sender: TObject)。 var A: TA。 tmpInt: Integer。 begin A := 。 tmpInt := 0。 (100)。 asm MOV ECX, 。 //為什麼 = 100 立即數(shù)就可以顯示為 100, 如果不改就顯示 為其它值。 MOV tmpInt, ECX。 end。 ShowMessage(IntToStr(tmpInt))。 。 end。 來自： savetime, 時間： 202014 1:30:00, ID： 2391511 to 積步 : DELPHI 對“ MOV ECX, ”生成的代碼實際上 是以 Record 的類型生成的，這樣 ECX 的值就是 變量 A 的地址 加上 的偏移值，結果是 ECX 變成堆棧上的一個值，所以不對。 的實際地址是 A 指向的地址 (也就是對象內(nèi)存位置，而不是 A 的地址 )加上 FA 相對于對象 頭部的偏移地址。我湊出以下的代碼，可以實現(xiàn)你要的結果： var A: TA。 tmpInt: Integer。 begin A := 。 tmpInt := 0。 (100)。 asm MOV EBX, A MOV ECX, TA(EBX).FA。 // 通知編譯器 EBX 指向的是 TA class MOV tmpInt, ECX。 end。 ShowMessage(IntToStr(tmpInt))。 。 end。 我沒寫過匯編代碼，所以不知道 DELPHI 會不會自動保護其他使用 EBX 的語句。如果你知道在混合 匯編的情況下如何使用寄存器請教我一下。 其實我真的不知道還有這種方法可以獲得私有成員，有趣！ 來自： savetime, 時間： 202014 2:40:00, ID： 2391532 內(nèi)容更正： 我發(fā)現(xiàn)自己在上文注釋中的一個錯誤，在以下匯編第三行的“ push ecx ”我把它注釋為 “保存 ecx (無用的語句 )”， 更正為： “分配局部變量 Obj 的堆?？臻g”。 原來 add esp, $4 花費 3 個字節(jié)的指令 而 push ecx 只要 1 個字節(jié)的指令，執(zhí) 行更快 大家現(xiàn)在知道我不是高手了吧，我是一邊翻匯編手冊，一邊寫注釋的。我只能毫不謙虛地 說：我真的是初學者。高手看這些簡單的匯編代碼哪里需要花一個晚上。 希望大家關注內(nèi)容，不要只是說“好”，重要的是“有沒有錯誤”，這樣才能提高。 出錯的注釋段： ================================================= ⊙ 測試目標：查看 的編譯器實現(xiàn) ================================================= ⊙ 測試代碼及反匯編代碼： procedure Test。 register。 var Obj: TObject。 begin push ebp 。 前 2 句用于設置堆棧指針 mov ebp, esp push ecx 。 保存 ecx (無用的語句 ) (更正為 ) 分配局部變量 Obj 的堆?？臻g Obj := 。 mov dl, $01 。 設置 dl = 1，通知 這是一次新建對象的調用 mov eax, [$004010a0] 。 把指向 TObject class VMT 的指針存入 eax， 。 作為 隱含的 Self 參數(shù) call 。 調用 函數(shù) mov [ebp$04], eax 。 返回新建對象的指針至 Obj end。 pop ecx 。 恢復堆棧并返回 pop ebp ret 來自： savetime, 時間： 202014 2:40:00, ID： 2391533 to 積步 , 我測試了在混合匯編的情況下修改寄存器時的實現(xiàn)，結果是： Delphi 會自動把嵌入?yún)R編中修改了的寄存器備份在堆 棧中，所以可以隨意使用 Delphi 允許的寄存器。 來自： book523, 時間： 202014 10:20:00, ID： 2391614 結論：真是精妙！一個對象的正常的創(chuàng)建 (Obj := , 與后面不正常的調用相對 )過程是這樣的： 1. 編譯器保證第一個 constructor 調用之前 dl = 1 編譯器保證 inherited Create 調用之前 dl = 0 2. dl = 1 時 編譯器保證 Create 時 eax = pointer to class VMT dl = 0 時 編譯器保證 Create 時 eax = pointer to current object 3. 編譯器保證任何層次的 constructor 調用后 eax = pointer to current object 4. dl = 1 時 編譯器保證 Create 調用 ，并與 constructor 相同的方式使用 eax dl = 1 時 編譯器保證 Create 調用 ，并且調用前后 eax = pointer to current object dl = 0 時 編譯器保證 Create 不會調用 dl = 0 時 編譯器保證 Create 不會調用 5. 中設置結構化異常處理，在 Create 即將結束時關閉結構化異常處理。 如果出錯則會 (1)釋放由編譯器分配的內(nèi)存 (2)恢復堆棧至創(chuàng)建對象之前 (3)調用 。 看上去有點繁雜，可是如果讀懂了上面 和 則會感覺對象的創(chuàng)建非常清晰。 為什么要保存經(jīng)常調用 dl 的值？ Dl 主要用來表示是 class 級別調用還是對象級別調用， class 級別調用時， constructor 會自動執(zhí)行 ， NewInstance,InitInstance， AfterConstruction 等過程， 然后才是 Constructor 中的代碼， 而對象級別調用時，只會執(zhí)行 Constructor 中的代碼。 來自： savetime, 時間： 202014 12:18:00, ID： 2391785 to book523, 你說的是我在“⊙測試目標：以 object reference 和 class reference 調用構造函數(shù)的編譯器實現(xiàn)”中的結果吧。我在文章中寫的結論是：“ object reference 方式的 constructor 調用，編譯器嘗試實現(xiàn)為 inherited 調用” 其實如果你看了測試代碼的反匯編過程，就應該知道我的這個結論是錯誤的。Borland 在 Object Pascal Reference 中寫的就是你說的“對象級別調用時，只會執(zhí)行 Constructor 中的代碼。”，可是事實上不是這樣。 在形式如下的代碼中 AComp := Borland 先將 edx 所有 bit 設置為 1 ，也就是 dl 為 1，也就是仍然嘗試沿用 class 級別的調用。可是你看 Delphi 的生成的匯編代碼不知所云，所以根本就沒有所謂的“對象級別調用”。我認為 Borland 應該對 AComp := 調用提示為語法錯誤。我實在是想不到什么時候會需要這種形式的調用。 我測試這樣的調用方式是因為我經(jīng)常在創(chuàng)建 Form 時忘了寫 T 這一標識符： ChildForm := (nil)。 // 這里應該是 (nil) 我想知道這樣的結果是什么。 來自： vc_delphi, 時間： 202014 18:27:00, ID： 2392395 高手就是高手 ,學習 . 來自： 積步 , 時間： 202014 21:30:00, ID： 2392563 to savetime: 多謝指教。 以前也研究過匯編什麼東東的