Interface + (Record)Operatoren [MiniMathLib]

[himitsu]

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 TSmallXYZ)