E
Endo
Unregistered / Unconfirmed
GUEST, unregistred user!
给出两条直线(四个顶点),求出这两条直线的交点......
Function GetCrossPoint(pt1, pt2, pt3, pt4: TPoint; Var pt: TPoint): boolean;
pt1, pt2:一条直线
pt3, pt4:另一条直线
pt:交点
有交点返回True 没有返回 False 该函数该怎么写啊???
急用,谢谢大虾。。。。。。
Function GetCrossPoint(pt1, pt2, pt3, pt4: TPoint; Var pt: TPoint): boolean;
pt1, pt2:一条直线
pt3, pt4:另一条直线
pt:交点
有交点返回True 没有返回 False 该函数该怎么写啊???
急用,谢谢大虾。。。。。。