class procedure TAIMPVKFileSystem.ClearTables;
begin
FCacheLock.Enter;
try
if FCache <> nil then
FCache.Exec('DELETE FROM ' + PrepareData(TAIMPVKFileSystemCacheQueryBuilder.sTableAudios) + ';');
FCache.Compress; <<<<<<< AV
finally
FCacheLock.Leave;
end;
end;
class procedure TAIMPVKFileSystem.ClearTables; begin FCacheLock.Enter; try if FCache <> nil then FCache.Exec('DELETE FROM ' + PrepareData(TAIMPVKFileSystemCacheQueryBuilder.sTableAudios) + ';'); FCache.Compress; <<<<<<< AV finally FCacheLock.Leave; end; end;