Schnittpunkt zweier Strecken

[gordon freeman]

Das Problem, dass die Geraden aufeinander liegen könntest du mit einem simplen Vergleich der Startpunkte abfangen:

Delphi-Quellcode:

if (xs = xs2) and (ys = ys2) then
  //1. Startpunkt ausgeben
else
  //Schnittpunkt mit Geradengleichungen berechnen