Solved

TObject.Destroy

Posted on 2000-04-10
7
201 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
  • 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

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
TEMBEDDEDWB how can i change its user agent ? 8 81
scroll down TListBox component in Delphi 1 30
delphi popmenu non latine charcters 3 30
IP without any Dots 1 49
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…

679 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