Почему DeleteCriticalSection намного медленнее, чем InitializeCriticalSection? - PullRequest
Новая
       5

Почему DeleteCriticalSection намного медленнее, чем InitializeCriticalSection?

0 голосов
/ 09 марта 2011

У меня более 20000 CriticalSections нужно удалить при закрытии приложения или остановке обслуживания.Но я обнаружил, что функция DeleteCriticaSection работает очень медленно.Я делаю тест: 

var
  CC: array[1..20000] of TRTLCriticalSection;

procedure TForm1.Button1Click(Sender: TObject);
var
  T: Cardinal;
  I: Integer;
begin
  Memo1.Lines.Add('InitializeCriticalSection:');
  T :=  GetTickCount;
  for I := 1 to 20000 do
    InitializeCriticalSection(CC[i]);
  Memo1.Lines.Add(IntToStr(GetTickCount - T));
  EnterCriticalSection(CC[3009]);
  Memo1.Lines.Add('--------------');
  LeaveCriticalSection(CC[3009]);
  Memo1.Lines.Add('DeleteCriticalSection:');
  T := GetTickCount;
  for I := 1 to 20000 do
    DeleteCriticalSection(CC[i]);
  Memo1.Lines.Add(IntToStr(GetTickCount - T));
end;

Результат: 

InitializeCriticalSection:
62
--------------
DeleteCriticalSection:
2262

Есть хорошие предложения?

...