function ValidObject(const AObject: TObject): Boolean; begin Result := Assigned(AObject) {$IFDEF AUTOREFCOUNT}and (not AObject.Disposed){$ENDIF}; end;
function ValidObjectEx(const AObject: TObject): Boolean; begin Result := False; if ValidObject(AObject) then try if PNativeInt(AObject)^ > $FFFF then Result := PNativeInt(AObject)^ = PNativeInt(PNativeInt(AObject)^ + vmtSelfPtr)^; except end; end;
Я бы добавлял используемые TImage в список после создания и удалял перед освобождением. Соответственно, из списка можно взять только действующий TImage
Я бы добавлял используемые TImage в список после создания и удалял перед освобождением. Соответственно, из списка можно взять только действующий TImage
Я хотел реализовать хелпер, который бы просто использовался как одна строчка. И мог быть добавлен в любой проект без конструирования список