7 lines
161 B
ObjectPascal
7 lines
161 B
ObjectPascal
|
unit extensionmethods10u;
|
||
|
|
procedure MyForEach<T>(self: sequence of T; action: T -> ()); extensionmethod;
|
||
|
|
begin
|
||
|
|
foreach x: T in Self do
|
||
|
|
action(x);
|
||
|
|
end;
|
||
|
|
end.
|