Есть кусок кода в Делфи, нужно объяснение, вот он:
if s1 = s2 then
begin
crit.Enter;
count := count +1;
FmtStr(msg, '%5u %6.6u %2u (Thread: %u)', [count, i, s1, Windows.GetCurrentThreadId]);
WriteToFileAndUI(msg);
crit.Leave;
end;
end;
end;
Желательно побольше объяснить про crit.Enter и crit.Leave, в частности что такое crit
заранее спасибо
if s1 = s2 then
begin
crit.Enter;
count := count +1;
FmtStr(msg, '%5u %6.6u %2u (Thread: %u)', [count, i, s1, Windows.GetCurrentThreadId]);
WriteToFileAndUI(msg);
crit.Leave;
end;
end;
end;
Желательно побольше объяснить про crit.Enter и crit.Leave, в частности что такое crit
заранее спасибо
