22 lines
777 B
ObjectPascal
22 lines
777 B
ObjectPascal
|
type
|
|||
|
|
// Обязательно внутри класса
|
|||
|
|
t1 = class
|
|||
|
|
|
|||
|
|
// Не важно, статический ли метод
|
|||
|
|
//
|
|||
|
|
// Обязательно имя Equals
|
|||
|
|
//
|
|||
|
|
// Обязательно первый параметр - класс
|
|||
|
|
// (из .dll или паскалевский - не важно)
|
|||
|
|
//
|
|||
|
|
// Обязательно p должен принимать параметр,
|
|||
|
|
// чтобы лямбда ниже его авто-вычисляла
|
|||
|
|
public static function Equals(o: Exception; p: byte->()) := true;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
// Обязательно передать именно лямбду,
|
|||
|
|
// а не существующую подпрограмму
|
|||
|
|
assert(t1.Equals(nil, l->begin end));
|
|||
|
|
end.
|