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.