Tach!
Die Funktion muss unbedingt eine Variable vom Typ single liefern, mein bescheidener Versuch, result als single zu deklarieren (...result:= (single)...) mißling. Kann sein, dass meine Dummheit einfach unermesslich ist, bin aber ein Newcomer in Delphi
Delphi-Quellcode:
function FSquare (x: double): double;
begin
result:= x*x;
exit;
end;
function PythDistance(x1,y1,x2,y2: integer): single;
begin
result:= (single) ( sqrt( Fsquare(x1-x2) + Fsquare(y1-y2) ) );
exit;
end;