Witam!
Mam funkcję:
function TForm1.f1(x: Extended): Extended;
begin
Result:=sqr(x)+ 4;
end;
i taką funkcję importowaną z dllki
function CalProsZNadm(POd,PDo:real; n:integer; f:funkcja):real;
var i:integer;
xi,h:real;
begin
h:=PDo-POd/n;
for i:=1 to n do
begin
xi:= POd + i*h;
result:= result + f(xi)*h;
end;
end;
zadeklarowałem typ
type
Funkcja=function(X:extended):extended;
Pytanie brzmi jak przekazać do tej funkcji z biblioteki funkcję f1? :>
takie coś nie działa;
wynik:=CalProsZNadm(a,b,c,f1);
z góry dziękuje za odpowiedź