Пример кода №1

Код:


var
CS: TCriticalSection;
...
CS.Enter;
if (Dir <> CurrentDir) then
begin
CS.Leave;
Exit;
end;
CS.Leave;
...


Код показывает незнание основных механизмов, предоставляемых языком программирования. В данном случае необходимо использование конструкции try finally, что позволяет отказаться от второго вызова метода Leave и делает код более логичным, стабильным и читаемым.

По возможности, вообще лучше избегать Exit. По моему так будет лучше:

Код:

 CS.Enter; try if (CompareText(Dir,CurrentDir) = 0) then begin Foo(); end; finally CS.Leave; end;1

Приведенный пример как раз и демонстрирует неверное использование. В комментариях идет об этом речь и пояснение

Этот код тоже исполниться быстрее чем Try finaly. Не нужно быть догматичным программировании. Программирование это творчество!

Программирование- это ремесло!
В поисках специалиста мы рассматриваем тех, кто пишет стабильный и работающий код, а не рисует картины "как он это видит". Тем более, что в команде работает несколько человек, мы не можем допустить, чтобы каждый проявлял свой творческий потенциал. Все должно быть в рамках стандартов.

Мы работаем над ПО которое не обязательно должно показывать чудеса быстродействия, в первую ПО должно быть очень стабильным.