Rückgabe

[shmia]

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().