ok also ich hab das jetzt soweit bleibt nur noch eine frage.
also ich habe hier diese prozedur die den schnittpunkt von zwei linien zurückgeben soll. Das ganze sieht jetzt so aus:
Delphi-Quellcode:
procedure GetColPoint(D: string; X1,Y1,X2,Y2,X3,Y3,X4,Y4,Side: Integer; out SX,SY: Real);
var
A1,B1,C1,
A2,B2,C2: Real;
begin
if X1 = X2 then X1 := 0;
if Y1 = Y2 then Y1 := 0;
A1 := -(1/(X2-X1));
B1 := (1/(Y2-Y1));
C1 := (X1/(X2-X1)) - (Y1/(Y2-Y1));
A2 := -(1/(X4-X3));
B2 := (1/(Y4-Y3));
C2 := (X3/(X4-X3)) - (Y3/(Y4-Y3));
SX := (B1*C2-C1*B2) / (A1*B2-A2*B1);
SY := (C1*A2-C2*A1) / (A1*B2-A2*B1);
end;
wie man siehst hab ich zwei ausgaben: SX (schnittpunkt X) und SY (Schnittpunkt Y).
so. das problem ist ich kann ja jetz zB nicht einfach auf ein panel schrieben da ich ja zwei rückgaben habe wie nehme ich mir also erst nur die eine dann die andere rückgabe raus?