Потоки... Потоки? Потоки!, FPC Опции

[Archon]

Сел переписывать движок Doomed Game под потоки и... понял, что мои знания о потокобезопасности оставляют желать лучшего. Может быть кто-нибудь (volvo?) проведет несколько лекций на эту тему? Думаю, это не только меня может заинтересовать. Или может я просто задам свои вопросы?

[volvo]

Что-то не так... Смотри:

uses sysutils, classes,
     u_test;

type
  tmythread = class(tthread)
  private
    msg: string;
    num: string;
  protected
    procedure execute; override;
  public
    constructor create(s, n: string);
  end;

constructor tmythread.create(s, n: string);
begin
  msg := s; num := n;
  inherited create(false);
end;

procedure tmythread.execute;
begin
  repeat
    Log.Write(num, msg);
  until terminated;
end;

const n = 50;
var
  thrds: array[1 .. n] of TMyThread;
  i: integer;
begin
  for i := 1 to n do begin
    thrds[i] := TMyThread.Create('message #' + IntToStr(i), IntToStr(i));
  end;
  readln;
  for i := n downto 1 do begin
    thrds[i].Terminate; thrds[i].Destroy;
  end;
end.

- простейший тест, правда? Примерно одинаковое количество раз в файле должно присутствовать каждое сообщение. Теперь смотри на вывод:
 threads.txt ( 91.51 килобайт ) Кол-во скачиваний: 1037


Самое интересное начинается с 89 строки...