TNotification DisposeOf oder Free?

[himitsu]

if Assigned(obj) {$IFDEF AUTOREFCOUNT}and not obj.Disposed{$ENDIF} then

Und .Free hat im ARC absolut keinerlei Funktion.
Echt toll, dass man so plattformunabhängigen Code fast nicht mehr schreiben kann, ohne massig IFDEFs.

Zitat:

und klaren Besitzverhältnissen

Klar ist nur, dass du teilweise nicht im Besitz bist.
.Free und früher war das Objekt mal weg ... jetzt ... nja, mal so und mal so.

var [WEAK] variable: type;
In aktuellen Delphis kann das nun endlich auch Windows.
Aber alte Delphis sagen keinen Muggs. Mein Kollege war grade erst drauf reingefallen, dass XE sowas bei IInterface zulässt, aber es still und heimlich ignoriert, da der Compiler keine Warnung wirft, wenn er auf ihm unbekannte Attribute trifft.

[Uwe Raabe]

Zitat von himitsu:

Echt toll, dass man so plattformunabhängigen Code fast nicht mehr schreiben kann, ohne massig IFDEFs.

Oder man macht sich einen class helper:

Delphi-Quellcode:

type
  TObjectHelper = class helper for TObject
    function IsValid: Boolean;
  end;

function TObjectHelper.IsValid: Boolean;
begin
  Result := Assigned(Self);
{$IFDEF AUTOREFCOUNT}
  if Result then
    Result := not Disposed;
{$ENDIF}
end;

oder eine gleichwertige Hilfsfunktion:

Delphi-Quellcode:

function InstanceIsValid(Instance: TObject): Boolean;
begin
  Result := Assigned(Instance);
{$IFDEF AUTOREFCOUNT}
  if Result then
    Result := not Instance.Disposed;
{$ENDIF}
end;