Solved

TObject.Destroy

Posted on 2000-04-10
7
196 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

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…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …

867 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now