10 lines
198 B
ObjectPascal
10 lines
198 B
ObjectPascal
|
type TBase = class
|
||
|
|
end;
|
||
|
|
TDer = class(TBase)
|
||
|
|
end;
|
||
|
|
begin
|
||
|
|
var l := Lst&<TBase>(new TBase, new TDer, new TDer);
|
||
|
|
var num := 0;
|
||
|
|
l.OfType&<TDer>.Foreach(x->Inc(num));
|
||
|
|
assert(num = 2);
|
||
|
|
end.
|