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); |