Commit 15d60f53a5b312bcf5bbff8a71885536a67a3163

Authored by Carlos Picanco
1 parent fc8185c8
Exists in master

runner: avoid mem leak when annoucer is empty

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