Memory Leak in TTetheringManager!

[Mavarik]

Zitat von Stevie:

Oh Gott, bitte nicht... ich möchte, dass meine Anwendungen auch weiter funktionieren und nicht überall DisposeOf oder DisposeOfAndNil () verteilen müssen, weils sonst an allen Ecken und Enden kracht.

Oh wie gruselig...

Daher:

Delphi-Quellcode:

Procedure ArcFree(Var Obj);
{$IF not Defined(AUTOREFCOUNT)}
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;
{$ELSE}
begin
  if Pointer(Obj) <> NIL then
    begin
      TFMXObject(Obj).Release;
      TFMXObject(Obj).DisposeOf;
    end;

  TObject(Obj) := nil;
end;
{$ENDIF}