Преглед на файлове

* fixed small bug

master
Bergmann89 преди 7 години
родител
ревизия
f41d478213
променени са 1 файла, в които са добавени 10 реда и са изтрити 4 реда
  1. +10
    -4
      utsUtils.pas

+ 10
- 4
utsUtils.pas Целия файл

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



Зареждане…
Отказ
Запис