|
Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Fukntionen als Parameter übergeben
1. Aug 2006, 17:21
Delphi-Quellcode:
type
tmyFunction = function (x:real):real;
function s_function( theFunc: TmyFunction ):Real;
begin
Result := theFunc( 5 );
end;
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|