Distanz 2er Punkte berechnen

[DeddyH]

Ist das Problem denn jetzt gelöst, oder hat man sie endgültig vergrault? Falls noch nicht gelöst, hier mein Ansatz:

Delphi-Quellcode:

uses math;

function DistanceBetween(const p1,p2: TPoint): extended;
begin
  Result := hypot(p1.X - p2.X, p1.Y - p2.Y);
end;