11 lines
226 B
ObjectPascal
11 lines
226 B
ObjectPascal
//!Выражение должно возвращать ссылочный тип, как того требует оператор lock
|
|
##
|
|
procedure p1<T>(o: T);
|
|
begin
|
|
lock o do
|
|
begin
|
|
Writeln(o);
|
|
end;
|
|
end;
|
|
|
|
p1(0); |