Как вызвать Synchronize в безликой процедуре?

[bilibian]

Привет.

Есть процедура, которая ни за кем не закреплена. Как в ней вызвать метод Synchronize?

procedure Test;
begin
  Synchronize(Test2);
end;

Ибо в таком варианте выходит ошибка.

[evg_m]

Ибо в таком варианте выходит ошибка.

и какая же ошибка?

D7. то чем пользуется "обычный" Synchonize не забывая при этом заполнять.

class procedure TThread.Synchronize(ASyncRec: PSynchronizeRecord);

Как в ней вызвать метод Synchronize?

зачем?

Есть процедура, которая ни за кем не закреплена.

а кто ПОЛЬЗУЕТСЯ данной процедурой?
1. закрепить её за потоком.
2. дать ей параметр, в котором указывать кто её вызвал (sender: TMyThread) и далее пользоваться этими данными
sender.Synchonize(sender.Test2);

А теперь ТЕЛЕПАТИЯ.
Test2 ТОЖЕ не закреплена ни за кем?!!
В таком разе все выше сказанное НЕ ПОМОЖЕТ.

procedure; {ваша Тest2}
procedure of object; {требования к параметру Synchonize }
это две БОЛЬШИЕ разницы.

выход только один.
закрепить и Test1 и Test2 за потоком(-ами) и не мучаться.

[bilibian]

Сообщение от evg_m

а кто ПОЛЬЗУЕТСЯ данной процедурой?

Test1 и Test2 не закреплены ни за кем. Ими пользуются несколько потоков.

Сообщение от evg_m

закрепить и Test1 и Test2 за потоком(-ами) и не мучаться.

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

[evg_m]

Да, но в таком случае для каждого потока придется делать копии этих процедур,

А наследование?

TmyBasisThread =class(TThread)
protected
  procedure Test1;
  procedure Test2;
...
end;

TworkThread1 =class(TMyBasisThread)
end;

TworkThread2 =class(TMyBasisThread)
end;

.........

на всякий случай http://programmersforum.ru/showthread.php?t=295305