четверг, 26 января 2017 г.

#1340. Побрюзжу

FFreeNotifies: TList<TComponent>;
....

procedure TComponent.RemoveFreeNotifications;
begin
  if FFreeNotifies <> nil then
  begin
    while Assigned(FFreeNotifies) and (FFreeNotifies.Count > 0) do
      TComponent(FFreeNotifies[FFreeNotifies.Count - 1]).Notification(Self, opRemove);
    FreeAndNil(FFreeNotifies);
  end;
end;


Ну нет слов...

Комментариев нет:

Отправить комментарий