Registriert seit: 21. Jun 2002
602 Beiträge
|
Re: Funktionen als Parameter
10. Feb 2004, 15:49
Delphi-Quellcode:
type
TMyFunction = function ({...}): {...};
function Example({...}): {...};
function Test(f: TMyFunction): {...};
begin
Result := f({...});
end;
// ...
Test(@Example);
In Turbo Pascal musst du zusätzlich noch den Compilerschalter {$F+} umlegen (far-Prozeduren).
-- Crucifixion?
-- Yes.
-- Good. Out of the door, line on the left, one cross each.
|