pascalabcnet/TestSuite/formatter_tests/input/lambdas_generics1.pas

procedure p<X,Y>(a: System.Func<X, Y>; b:System.Func<Y, X>; c: X);
begin
  writeln(a(c));
end;

begin
  p(x->x,x->1.0,4.0);
end.
-												fix pascalabcnet/pascalabcnetide#236

											
										
										
											2022-04-15 16:04:36 +03:00
+								procedure p<X,Y>(a: System.Func<X, Y>; b:System.Func<Y, X>; c: X);
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								begin
 								  writeln(a(c));
 								end;
 								begin
-												fix pascalabcnet/pascalabcnetide#236

											
										
										
											2022-04-15 16:04:36 +03:00
+								  p(x->x,x->1.0,4.0);
 								end.