Why not raise EInvalidPointer?
The Delphi documentation states :
Never raise an EInvalidPointer exception directly. EInvalidPointer is raised internally by the memory manager.
I'm writing a custom base class as an alternative to TInterfacedObject , following the RTL implementation as closely as possible, and see, by example, that TInterfacedObject in the RTL implements BeforeDestruction as:
procedure TInterfacedObject.BeforeDestruction;
begin
if RefCount <> 0 then
Error(reInvalidPtr);
end;
Where Error(reInvalidPtr) raises EInvalidPointer through a variety of unit-scoped methods local to the RTL.
If I'm writing my own class, how should I implement BeforeDestruction ? Why not do this? :
procedure TMyInterfacedObject.BeforeDestruction;
begin
if RefCount <> 0 then
raise EInvalidPointer.CreateRes(@SInvalidPointer) at ReturnAddress;
end;
Is there something special with the global InvalidPointer exception object declared in SysUtils ? If this is a bad idea, would it be sensible to simply raise a custom exception here?
Complementary to David's answer; what's special about InvalidPointer , which is used to raise an EInvalidPointer , together with OutOfMemory <-> EOutOfMemory is explained in more detail in the documentation topic for their ascendant EHeapException :
EHeapException is the exception class for errors related to heap-allocated memory.
EHeapException 's descendants—EOutOfMemory and EInvalidPointer—are used to handle failed allocations of dynamic memory and invalid pointer operations.
Note : Memory for these exceptions is pre-allocated whenever an application starts and remains allocated as long as the application is running. Never raise EHeapException or its descendants directly.
Which amounts to I guess is, it may not be safe to allocate memory for creating these errors once you have problems with memory: for lack of it or possible corruption...
避开原始问题，您可以避免简单地通过使用与运行时相同的代码来进行询问：
System.Error(reInvalidPtr);