From 15d60f53a5b312bcf5bbff8a71885536a67a3163 Mon Sep 17 00:00:00 2001 From: Rafael Picanço Date: Wed, 18 Jan 2017 17:32:34 -0300 Subject: [PATCH] runner: avoid mem leak when annoucer is empty --- experiment_runner/units/presentation_classes.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/experiment_runner/units/presentation_classes.pas b/experiment_runner/units/presentation_classes.pas index 6da29cd..58f38c8 100644 --- a/experiment_runner/units/presentation_classes.pas +++ b/experiment_runner/units/presentation_classes.pas @@ -97,9 +97,12 @@ end; procedure TIntervalarAnnouncer.StartTimer(Sender: TObject); var M : array of UTF8String; begin - M := FMessages[High(FMessages)]; - NextMessage; - if Assigned(FOnStart) then FOnStart(M); + if Length(FMessages) > 0 then + begin + M := FMessages[High(FMessages)]; + NextMessage; + if Assigned(FOnStart) then FOnStart(M); + end; end; constructor TIntervalarAnnouncer.Create(AOwner: TComponent); -- libgit2 0.21.2