ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

transserg, спасибо, буду пробовать без "обертки" TCriticalSection.

Тестирую очень просто.

Код потока без обертки TCriticalSection:

Код:

procedure inv.Execute;
begin
  EnterCriticalSection (CriticalSection);
    form1.Memo2.Lines.Add (timetostr (time));
  LeaveCriticalSection (CriticalSection);
  new_inv (); // запуск нового потока
end;

Код потока с оберткой TCriticalSection:

Код:

procedure inv.Execute;
begin
  CriticalSection.Enter;
    form1.Memo2.Lines.Add (timetostr (time));
  CriticalSection.Leave;
  new_inv (); // запуск нового потока
end;

Второй вариант "поломался" на 20000-ной строчке в memo. Первый (ваш) пока работает, тьфу-тьфу-тьфу.

Буду тестировать, спасибо огромное!