حساب طول مستقيم معرف الإحداثيات من الجهتين

[belnono]

السلام عليكم ورحمة الله تعالى وبركاته
رجاءا إخواني، كيف يمكنني حساب طول مستقيم
أو المسافة بين شكلين من أشكال shape
مع العلم أننا نعرف إحداثياتهما
بارك الله فيكم

[بن دهيبة]

وعليكم السلام ورحمة الله تعالى وبركاته

كود :

Function Distance(x1,y1,x2,y2:Real):Real; Begin Result:=sqrt(sqr(y2 - y1) + sqr(x2 - x1)); End;

[belnono]

بارك الله فيك أخي الكريم بن ذهيبة
كود جميل شكرا لك