Delphi 两条直线的交点

function g2dCrossOver(const a,b,c,d:pTd2dVal; Out o:Td2dVal):Integer;
var denominator:Extended;
begin
  Result := -1; //无交点，返回-1
  // 如果分母为0 则平行或共线, 不相交
  denominator := (b.y - a.y)*(d.x - c.x) - (a.x - b.x)*(c.y - d.y);
  if (denominator = 0) then Exit;
  // 线段所在直线的交点坐标 (x , y)
  o.x := ( (b.x - a.x) * (d.x - c.x) * (c.y - a.y)
    + (b.y - a.y) * (d.x - c.x) * a.x
    - (d.y - c.y) * (b.x - a.x) * c.x ) / denominator ;
  o.y := -( (b.y - a.y) * (d.y - c.y) * (c.x - a.x)
    + (b.x - a.x) * (d.y - c.y) * a.y
    - (d.x - c.x) * (b.y - a.y) * c.y ) / denominator;
 //有交点, 返回 >=0
 Result := 0;
 // 交点在线段ab上, 返回1
 if ((o.x - a.x) * (o.x - b.x) <= 0) and ((o.y - a.y) * (o.y - b.y) <= 0) then Inc(Result);
 // 交点也在线段cd上, 返回2
 if ((o.x - c.x) * (o.x - d.x) <= 0) and ((o.y - c.y) * (o.y - d.y) <= 0) then Inc(Result, 2);
 // 交点也在线段ab与cd上, 返回 1+2 = 3
end;