dll einbinden

[youuu]

Zitat von mkinzler:

Wie sieht dein Code nun aus?

genauso wie davor ich habe nur eine kleineigkeit entdeckt die den Fehler auslöste und zwar:

DLL

Delphi-Quellcode:

function NFak(Val: Integer): INT64; stdcall;
begin
  if Val < 0 then
    raise Exception.Create('Val muss größer/gleich 0 sein.');
  if Val = 0 then
    Val := 1;
  Result := 1;
  repeat
      Begin
        Result := Result * Val;
        Dec(Val)
      End;
  until Val <= 1;
end;

Programm

Delphi-Quellcode:

function NFak(Val: Integer): INT64; external DLL; stdcall;

stdcall stand nicht an der gleichen Stelle wie in der DLL dies hat wohl den Fehler verursacht, als ich es geändert habe ging es.