Topic: Simple multithreading TWThread, TWCThread

[brick08]

На Lazarus 1.8 RC1 не компилится, хотя на 1.9 норм.

[pupsik]

brick08 конечно норм (т.е. верно ругает). Поменяли процедуру. На что и ругань. Посмотрите что да как и подправьте.

[wadman]

т.е. верно ругает

Не, раз я заявил о совместимости с 1.6, то не должно ругаться.
Залил исправленную версию.

Добавлено спустя 4 минуты 28 секунд:
А, стоп. 18 rc1? Их там колбасило в редакторах дизайнера, меняли то в одну сторону, то в другую...

Описание меняется между строками {$ifdef ver16 or $ifdef ver18}.

[pupsik]

wadman значит не понятливая версия лазаря у него. И скрин кривой

[wadman]

значит не понятливая версия лазаря у него

Верно, он как раз на распутье по версиям:
1.8 RC1

Код: Выделить всё

 // modifing
  TPropHookModified = procedure(Sender: TObject; PropName: ShortString) of object;
  TPropHookRevert = procedure(Instance:TPersistent; PropInfo:PPropInfo) of object;
  TPropHookRefreshPropertyValues = procedure of object;

1.8 RC3

Код: Выделить всё

 // modifing
  TPropHookModified = procedure(Sender: TObject) of object;
  TPropHookModifiedWithName = procedure(Sender: TObject; PropName: ShortString) of object;
  TPropHookRevert = procedure(Instance:TPersistent; PropInfo:PPropInfo) of object;
  TPropHookRefreshPropertyValues = procedure of object;

[wadman]

Добавил TWEvent.WaitForMultiple, который, соответственно, работает только со своим классом.
Подходит для синхронизации нескольких потоков TWThread, TWCThread.