freiwillige Parameter

[sirius]

Oder noch eine Möglichkeit: Du benutzt die Vorzüge der Aufrufkonvention CDECL.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

function param4(a,b,c,d:integer):integer; cdecl;
begin
  result:=a+b;
end;

var param2:function(a,b:integer):integer; cdecl;
var param3:function(a,b,c:integer):integer; cdecl;


begin
  param2:=@param4;
  param3:=@param4;

  writeln(param2(4,5)        ,' ',
          param3(4,5,2)      ,' ',
          param4(4,5,2,-12)  );

  readln;
end.