Zitat von
Custom:
also ich habe hier diese prozedur die den schnittpunkt von zwei linien zurückgeben soll. Das ganze sieht jetzt so aus:
procedure GetColPoint(D: string; X1,Y1,X2,Y2,X3,Y3,X4,Y4,Side: Integer; out SX,SY: Real);
Verwende doch den vordefinierte Record-Typ namens
TPoint!!
Damit wird deine Parameterschlacht deutlich reduziert:
Delphi-Quellcode:
function GetColPoint(D: string; P1,P2, P3,P4 : TPoint; Side: Integer):TPoint;
begin
... // dein Job
Result.x := ...
Result.y := ...
end;
// Aufruf
var
ausgabepos : TPoint;
begin
ausgabepos := GetColPoint(.....);
Labelx.Caption := inttostr(ausgabepos.x);
Labely.Caption := inttostr(ausgabepos.y);
Hinweis: um einen x- und y-Wert in einen TPoint zu verwandeln, gibt es die Funktion
Point().