13 lines
432 B
ObjectPascal
13 lines
432 B
ObjectPascal
procedure p<T>(aa: T); where T: class;
|
|
begin
|
|
var a := Seq(1,2,3).Select(x -> begin
|
|
var tt := new List<T>();
|
|
writeln(aa);
|
|
tt.Add(aa);
|
|
result := tt.Select(y -> begin result := aa; writeln(aa) end).ToList()
|
|
end).ToList();
|
|
end;
|
|
|
|
begin
|
|
p('sss');
|
|
end. |