Commit 15d60f53a5b312bcf5bbff8a71885536a67a3163
1 parent
fc8185c8
Exists in
master
runner: avoid mem leak when annoucer is empty
Showing
1 changed file
with
6 additions
and
3 deletions
Show diff stats
experiment_runner/units/presentation_classes.pas
@@ -97,9 +97,12 @@ end; | @@ -97,9 +97,12 @@ end; | ||
97 | procedure TIntervalarAnnouncer.StartTimer(Sender: TObject); | 97 | procedure TIntervalarAnnouncer.StartTimer(Sender: TObject); |
98 | var M : array of UTF8String; | 98 | var M : array of UTF8String; |
99 | begin | 99 | begin |
100 | - M := FMessages[High(FMessages)]; | ||
101 | - NextMessage; | ||
102 | - if Assigned(FOnStart) then FOnStart(M); | 100 | + if Length(FMessages) > 0 then |
101 | + begin | ||
102 | + M := FMessages[High(FMessages)]; | ||
103 | + NextMessage; | ||
104 | + if Assigned(FOnStart) then FOnStart(M); | ||
105 | + end; | ||
103 | end; | 106 | end; |
104 | 107 | ||
105 | constructor TIntervalarAnnouncer.Create(AOwner: TComponent); | 108 | constructor TIntervalarAnnouncer.Create(AOwner: TComponent); |