delphi4arab منتديات دلفي للعرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

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

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

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

delphi4arab منتديات دلفي للعرب

belnono

بن دهيبة

belnono