Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
29. Mai 2008
Wenn, dann müsste es dochfunction DistanceBetween(const p1,p2: TPoint): extended;
begin
Result := sqrt(sqr(p1.X - p2.X) + sqr(p1.Y - p2.Y));
end;heißen, oder täusche ich mich?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
29. Mai 2008
Ist das Problem denn jetzt gelöst, oder hat man sie endgültig vergrault? Falls noch nicht gelöst, hier mein Ansatz:uses math;
function DistanceBetween(const p1,p2: TPoint): extended;
begin
Result := hypot(p1.X - p2.X, p1.Y - p2.Y);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
25. Mai 2008
Oder eben hypot(A,B) (irgendwie fühl ich mich ignoriert).