hallo, ich möchte eine variable function nutzen.
Diese soll als parameter für eine procedure dienen, sodass ich funktionen einsetzen kann
.
so soll es funktionen (tut es aber nicht), es ist aber nicht der orginal quelltext, sondern nur das wesentliche:
Delphi-Quellcode:
uses (...)math;
(...)
type
tfunction= function(a:extended):extended;
(...)
var
zahlen:array of extended;
(...)
procedure trape(parameterfunction: tfunction);
var
i:integer;
begin
for i:=0 to length(zahlen)-1 do
begin
zahlen[i]:=parameterfunction(zahlen[i]);
end;
end;
(...)
procedure sintrape;
begin
trape(sin)
end;
ach ja, was ich noch sagen wollte: bitte sagt mir nicht, dass das blöde ist, und dass das viel zu umständlich ist; ich hab das total durchgedacht, so ist der beste Weg!
//edit: integer in extended verändert