Código Delphi [-] function MakeAdder(y: Integer): TFuncOfInt; begin Result := { start anonymous method } function(x: Integer) begin Result := x + y; end; { end anonymous method } end;
function MakeAdder(y: Integer): TFuncOfInt; begin Result := { start anonymous method } function(x: Integer) begin Result := x + y; end; { end anonymous method } end;