判断直线(a,b)(c,d)是不是平行

              //  判断直线(a,b)(c,d)是不是平行 delphi 代码

function g2dCrossOver(const a, b, c, d: TVector2f; out o: TVector2f): 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;