runner: avoid mem leak when annoucer is empty

Carlos Picanco
1 parent fc8185c8
Showing 1 changed file with 6 additions and 3 deletions Show diff stats
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);
...	...	@@ -97,9 +97,12 @@ end;
97	97	procedure TIntervalarAnnouncer.StartTimer(Sender: TObject);
98	98	var M : array of UTF8String;
99	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	106	end;
104	107
105	108	constructor TIntervalarAnnouncer.Create(AOwner: TComponent);
...	...