Code formatting

This commit is contained in:
Michael Schimmel
2025-06-24 11:18:10 +02:00
parent fdea3cf26a
commit ed8619650c
5 changed files with 12 additions and 12 deletions
+5 -5
View File
@@ -69,7 +69,7 @@ begin
Assert(IsLocked);
if not Assigned(Receiver) then
exit( nil );
exit(nil);
Item := AllocItem;
Item.Receiver := Receiver;
@@ -185,16 +185,16 @@ begin
if (Tag = nil) or (FList = nil) then
exit;
{$ifdef DEBUG}
{$ifdef DEBUG}
Item := FList;
while Item<>nil do
while Item <> nil do
begin
if Item = Tag then
break;
Item := Item.Next;
end;
Assert( Item <> nil, 'Receiver not advised' );
{$endif}
Assert(Item <> nil, 'Receiver not advised');
{$endif}
if FList = nil then
exit;