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.