Notifier-Subscription-List robustness

This commit is contained in:
Michael Schimmel
2025-06-24 11:17:29 +02:00
parent 6ea0f94e36
commit fdea3cf26a
3 changed files with 74 additions and 39 deletions
-6
View File
@@ -32,7 +32,6 @@ type
strict private
FSubscribers: TMycNotifyList<TSignal.ISubscriber>;
function GetSignal: TSignal;
function GetIsSet: Boolean;
public
constructor Create;
destructor Destroy; override;
@@ -197,11 +196,6 @@ begin
inherited;
end;
function TMycEvent.GetIsSet: Boolean;
begin
Result := true;
end;
function TMycEvent.GetSignal: TSignal;
begin
Result := Self;