Delphi-Quellcode:
function Log_B_of_X(var params: TTEST_SUB_PARAMS): Double; cdecl;
begin
MessageBox(GetTopWindow(params.h), 'Executing Log_B_of_X function.' , 'XSUB',MB_OK);
Result := ln(params.x) / ln(params.base);
end;
Dashier reicht auch schon aus. Was will man der Funktion denn sonst übergeben.