Wie kann ich mir den schnittp. zweier lin. funk. berechnen

[Surrounder]

Delphi-Quellcode:

procedure schnittpunkte_suchen( var schnitt_X, schnitt_Y, x1, y1, x2, y2, x3, y3, x4, y4 : double );
var
   a : double;
begin
   a := (((x4 - x3) * (y1 - y3)) - ((y4 - y3) * (x1 - x3))) / (((y4 - y3) * (x2 - x1)) - ((x4 - x3) * (y2- y1)));
   schnitt_X := x1 + a * (x2 - x1);
   schnitt_Y := y1 + a * (y2 - y1);
end;

Das hatte ich bei mir schon eingabut, das tut auf jeden Fall so.

x1, y1 = Startpunkt x2,y2 = Endpunkt Gerade 1
x3, y3 Startpunkt x4,y4 = Endpunkt Gerade 2
schnitt_X und schnitt_y sind dann das Ergebnis

verteufelt mich jetzt nicht wegen des Codestiels das war eine meiner ersten Aufgaben, und ich hab das nur kurz raus kopiert.

Edit: Ich glaube es ist sogar egal ob es Startpunkt / Endpunkt ist, es mussen nur zwei Punkte auf der Geraden sein, wegen der Steigung