Übergabeparameter in Funktion

[jfheins]

Dann musst du es halt entsprechend anpassen

Delphi-Quellcode:

type 
  TEmtpyFunc = Procedure(out Value: Integer) of object;

procedure TForm1.jetztmachschon(out a: Integer);
begin
  a := 42;
end;

function MachInhalt( Value: Integer; Func: TEmptyFunc ): Integer; 
begin 
// ... 
  Func(i); 
// ... 
end;

MachInhalt(23, meinobjekt.jetztmachschon);

Ich hab das mal von funktion auf procedure mit out-Parameter geändert, müsste aber auch als Funktion gehen.