Solved

TObject.Destroy

Posted on 2000-04-10
7
203 Views
Last Modified: 2010-04-04
Is anybody out there willing to let me have the source code for TObject.Destroy from Delphi 3?

There might be a question about copyright infringement, but I don't know how valid it is about an outdated product. All I need is that one method.
0
Comment
Question by:HorridMan
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
7 Comments
 
LVL 6

Expert Comment

by:DrDelphi
ID: 2702840
Well, Delphi 3 is hardly obsolete... maybe not as used as other, newer versions, but not quite a relic yet. <g> As for the copyright infringements... I doubt that there would be any considering Borland ships its source with the Client/Server versions of Delphi. Now how much this is going to men to you when you see the destructor, welllll.....




TObject.Destroy
begin
end;


Of course there is the TObject.Free method which contains some assembler code...


procedure TObject.Free;
asm
        TEST    EAX,EAX
        JE      @@exit
        MOV     ECX,[EAX]
        MOV     DL,1
        CALL    dword ptr [ECX].vmtDestroy
@@exit:
end;



Good luck!!
0
 
LVL 20

Expert Comment

by:Madshi
ID: 2703045
In D5 (don't know about D3 right now) there are the methods CleanupInstance and FreeInstance. Both methods must not be called directly. Instead they are called automatically after all (overwritten) destructors have been executed.
0
 

Author Comment

by:HorridMan
ID: 2714036
This question has a deletion request Pending
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:HorridMan
ID: 2714046
This question is perhaps not justifiable, and has not received a serious answer.
0
 
LVL 6

Expert Comment

by:DrDelphi
ID: 2714544
This question no longer is pending deletion
0
 
LVL 6

Accepted Solution

by:
DrDelphi earned 20 total points
ID: 2714545
"This question is perhaps not justifiable, and has not received a serious answer."....

Poppycock! The question has recieved not one, but two serious answers. Methinks that the points were never meant to be awarded. Truly a Horrid Man!

 
0
 

Author Comment

by:HorridMan
ID: 2718671
Let's have a contest to see who's most horrid!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
select query - oracle 16 103
drawing animated level bar based on numbers 3 122
FMX TEdit KeyUp handler detecting  "enter" key 4 64
Delphi Firemonkey : user drawing in window 3 59
A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…
Finding and deleting duplicate (picture) files can be a time consuming task. My wife and I, our three kids and their families all share one dilemma: Managing our pictures. Between desktops, laptops, phones, tablets, and cameras; over the last decade…

710 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question