Registriert seit: 15. Apr 2004
Ort: Köln
1.166 Beiträge
Delphi 10 Seattle Professional
|
AW: Problem mit ARC unter iOS?
21. Jan 2016, 20:59
Code:
procedure TryFree(const AUnitName: String; const AObj: TObject);
begin
if not Assigned(AObj) then
Exit;
{$IFDEF AUTOREFCOUNT}
if AObj.RefCount > 1 then begin
OutputDebugStrFmt('[[%s]] %s.RefCount=%d', [AUnitName, AObj.QualifiedClassName, AObj.RefCount]);
AObj.DisposeOf;
end;
{$ELSE}
AObj.Free;
{$ENDIF AUTOREFCOUNT}
end;
Wo kommt denn die OutputDebugStrFmt her? Kann nichts dazu finden.
|