Skip to content
Snippets Groups Projects
Commit f41d4782 authored by Bergmann89's avatar Bergmann89
Browse files

* fixed small bug

parent 81e18973
Branches master
No related merge requests found
......@@ -188,10 +188,16 @@ end;
destructor TtsMultiMasterRefManager.Destroy;
var
i: Integer;
begin
for i := fMasterRefs.Count-1 downto 0 do
DelMaster(fMasterRefs[i] as TtsRefManager);
FreeAndNil(fMasterRefs);
m: TObjectList;
begin
m := fMasterRefs;
try
fMasterRefs := nil;
for i := m.Count-1 downto 0 do
(m[i] as TtsRefManager).DelSlave(self);
finally
FreeAndNil(m);
end;
inherited Destroy;
end;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment