ich hatte diese beiden Funktionen erst NICHT-virtual ... und auch trat schon der selbe Fehler auf ... hatte es jetzt nur zum Testen mal getrennt. (wird also später wieder entfernt)
Aber ob nur Virtual oder nicht, die Referenzzählung simd so oder so nicht.
[add]
ach ja, ich vergaß zu sagen:
- ab Delphi 2006 (wegen der Operatoren)
- und wenn man das Programm durchlaufen läßt, dann kommt sollte beim letzen END; der Run-Prozedur alle Instanzen freigegeben werden und die If-Abfrage müßte ohne
Exception erfolgen (was sie leider nicht tut)
Delphi-Quellcode:
Begin
Run;
If GetCounters <> '
...'
Then
Raise Exception.Create('
memory leak...
[add2]
Zitat:
Delphi-Quellcode:
TSmallInteger = Class(TOperatorObject)
Protected
Function _AddRef: Integer; Override; StdCall; // weg
Function _Release: Integer; Override; StdCall; // weg
die interen Datentypen haben auch dieses auch und bei denen scheint es nicht zu stören (ja und diese werden ebenfalls verwendet ... z.B. zur Konvertierung der Delphitypen in die eigenen TSmall
XYZ)