Непонятный AV в процедуре ведения лога.

[Человек_Борща]

это понятно. У меня многопоточное приложение создающее заранее не известное кол-во потоков. Семафор релизовывать в мотоде обращения к файлу а в тотоках вызывать этот метод? или как-то по другому?

[ReportCube]

Вставляете "как есть" в модуль. Из любого потока отправляете в процедуру/функцию записи в лог. Семафор стоит на страже, если один поток пишет, то второй будет ждать, пока откроется семафор. Как только семафор открыт - захват семафора, запись в файл, открытие семафора для следующего и выход из процедуры/функции.

[Человек_Борща]

т.е. согласно вашему коду я могу спокойно сделать вот так:

var
 SemHandle:Thandle;

function AddSystemLog(aStr:string);
var
  Ts:TstringList;
   W:WORD;
begin
  W:=WaitForSingleObject(SemHandle,INIFINITE);
    try
      If (W = WAIT_OBJECT_0) then
      begin
         Ts.add(aStr);
         Ts.SaveToFile('Log.txt');
      end;
     finally
      ReleaseSemaphore(SemHandle, 1, nil);
      FreeAndnil(Ts);
    end;
end;


Initialization
 SemHandle := CreateSemaphore(nil, 1, 1, nil);

Finalization
 CloseHandle(SemHandle);

? И потом использовать эту процедуру в потоках небоясь жучков?

[GunSmoker]

А семафор-то здесь зачем?

uses
  SyncObjs;

var
  FLogCS: TCriticalSection;

function AddSystemLog(const AStr: String);
begin
  FLogCS.Enter;
  try
    // добавляем в лог
  finally
    FLogCS.Leave;
  end;
end;

initialization
  FLogCS := TCriticalSection.Create;
finalization
  FreeAndNil(FLogCS);
end.

Это - только пример! В реальном коде FLogCS должно быть частью объекта логгирования.

[Человек_Борща]

FLogCS должно быть частью объекта логгирования.

можно это, пожалуйста, пояснить подробнее?

[GunSmoker]

Можно.

Сердце должно качать кровь, а лёгкие - воздух. А не наоборот. И уж тем более не мешанина как в амёбе.

Это - суть ООП, да и вообще любого структурирования.

Обеспечение атомарности доступа в данном случае - задача лога. Вот он её и должен выполнять. А не кто-то там ещё, сбоку навешанный и костылями подпоротый.

Пример с плагинами из соседней темы смотрел? Та же ошибка: работу с плагинами должен делать менеджер плагинов. А у тебя он (менеджер) только контейнером был, а работа с плагинами была размазана по программе.

Если ты смотрел мой пример, то мог увидеть, что там всю работу с плагинами выполняет одна сущность, а вся остальная программа только её использует и отдаёт команды.

Это и есть грамотное проектирование.

Простейший вариант мог бы быть таким:

uses
  SyncObjs;

type
  TLog = class(TStringList)
  private
    FLogCS: TCriticalSection;
  public
    constructor Create;
    destructor Destroy; override;
    function Add(const S: String): Integer; override;
  end;

constructor TLog.Create;
begin
  inherited;
  FLogCS := TCriticalSection.Create;
end;

destructor TLog.Destroy;
begin
  FreeAndNil(FLogCS);
  inherited;
end;

function TLog.Add(const S: String): Integer;
begin
  FLogCS.Enter;
  try
    Result := inherited Add(S);
  finally
    FLogCS.Leave;
  end;
end;

Но и это ещё не идеально.

Самое правильное - создать чистый объект. TStringList использовать внутри, как поле. А наружу выставить только Add, Clear и SaveToFile (ну и может ещё кого полезного).

Я имею ввиду, что странно выглядит лог, у которого есть Delete и Exchange, а также возможность ассоциировать объекты со строками.