Wenn das stimmt, ist das meiner Meinung nach ein Bug in Delphi. Ein Referenzzähler sollte immer mit 1 initialisiert sein, nicht mit 0.
In soeinem Fall sollte Delphi besser eine (interne) lokale Variable generieren und Diese an den Parameter übergeben.
Das kommt auf dasselbe raus, was ich meine. Der Referenzzähler sollte immer bei 1 starten, denn irgendjemand
muss ja eine Referenz auf das Objekt haben, ansonsten dürfte es gar nicht existieren. Und wenn es keine gibt, dann muss der Compiler eine generieren.
Ich habe in C schon manuelle Referenzzählung implementiert und dort habe ich es immer so gemacht:
Code:
typedef struct RefCounted {
int refcount;
} RefCounted;
RefCounted* refcounted_new()
{
RefCounted *obj = malloc(sizeof(RefCounted));
obj->refcount = 1;
return obj;
}
void refcounted_destroy(RefCounted *obj)
{
free(obj);
}
void addref(RefCounted *obj)
{
++(obj->refcount);
}
void release(RefCounted *obj)
{
--(obj->refcount);
if (obj->refcount==0) {
refcounted_destroy(obj);
}
}
int main()
{
RefCounted *obj = refcounted_new();
// Hier KEIN addref(obj)
blablabla_irgendwas_mit_obj_machen(obj);
release(obj);
}
So sollte es der Compiler auch machen.