delphi有没有判断两条线段相交的函数，如没有，哪位有现成的代码？

Question

数学问题啊，
看两线的斜率是不是一样。
k：=(y1-y2)/(x1-x2)

Answer 1

BigBen(江南草) 老兄，你想哪去了，不是“直线”，是“线段”。

Answer 2

先求两直线的交点P（X，Y），然后判断是否X∈[min（L1.X1，L1.X2，L2.X1，L2.X2），max（L1.X1，L1.X2，L2.X1，L2.X2）]，Y∈[min（L1.Y1，L1.Y2，L2.Y1，L2.Y2），max（L1.Y1，L1.Y2，L2.Y1，L2.Y2）]。如果都满足，则相交。
应该是吧，我也不能确认：）

Answer 3

再来看时，已经有人答了，同意dancemaple(枫之舞) 的判断方法，以下是我的描述：我想，可以不必判断是否在所谓的矩形框内。你只需要判断是否在线段上即可。如下：如果线段1由(X11,y11)(X12,Y12) 线段2由(X21,Y21)(X22,Y22)所订出，并且，求得的交点为(X,Y)，
那么，X,Y必须满足：1、X∈(X11,X12) AND X∈(X21,X22)
2、Y∈(Y11,Y12) AND Y∈(Y21,Y22)不知道有没有漏洞。

Answer 4

TO BigBen(江南草)你的说法还是有漏洞，请仔细想想这句话“若此交点在任何一线上，自然就解决问题了”。千万不要以为我和你过不去哦，好朋友，问题还是一定要指出的。:)

Answer 5

to wz2001：呵呵，同意并谢谢。