Wer kann mir diese C Funktion uebersetzen?

[marabu]

Ich habe C zur Seite gelegt, als TP auf den Markt kam, aber das hier könnte eine Ausgangsbasis für dich sein:

Delphi-Quellcode:

library Test;

uses
  Windows,
  Math,
  SysUtils,
  Classes;

{$R *.res}

type
  PTEST_SUB_PARAMS = ^TTEST_SUB_PARAMS;
  TTEST_SUB_PARAMS = record
    base: double;
    x: double;
    h: HWND;
  end;

function Log_B_of_X(var p): Double; cdecl;
var
  params: PTEST_SUB_PARAMS;
begin
  params := @p;
  MessageBox(GetTopWindow(params.h), 'Executing Log_B_of_X function.' , 'XSUB',MB_OK);
  Result := ln(params.x) / ln(params.base);
end;

exports
  Log_B_of_X name '_Log_B_of_X'; // prüfen

end.

Grüße vom marabu