Rückgabe

[Neutral General]

Ja ich hab den roten Kasten gesehn und geguckt was da steht und da hab ich nur das mit den var/out Parametern in Proceduren gelesen und weil ich nicht gedacht hätte das inzwischen schon wieder 2 (!) neue Antworten aufgetaucht sind hab ich den Kasten ignoriert -.-^^

[Klaus01]

Zitat:

Zitat von Custom

[delphi]
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?

Du könntest Dir eine Funktion mit einem Rückgabewert TPoint bauen.
Da kannst Du dann x und y auf einmal übergeben.

Grüße
Klaus

[fLaSh11]

in diesem Fall würde ich eine Funktion nehmen, die einen TPoint zurückgibt. Und dann halt:

Delphi-Quellcode:

//P1: TPoint;
Panel1.Caption := IntToStr(P1.X) + ';' + IntToStr(P1.Y);

Evtl. auch anderer Seperator anstatt ";" :zwinker:

//Edit: roter Kasten kam nicht?! :wall:

[shmia]

Zitat:

Zitat von Custom

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);

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

[Custom]

Das mit dem Point ist eigendlich eine gute idee aber ich will die prozedur in ein 3D spiel einbauen deswegen muss ich danach sowieso noch eine weitere prozedur machen die drei rückgaben macht (X,Y,Z)

[fLaSh11]

mach einen eigenen Record:

Delphi-Quellcode:

type
  T3dPoint = record
    X, Y, Z: integer;
  end;

[Custom]

wohin kommt der teil mit type..?

[fLaSh11]

vor / nach der Deklaration von TForm1

[Custom]

Delphi-Quellcode:

type
Collision = record
    X,Y,Z:   Real;
  end;

Collision.Y := GetColPoint(...);

[Fehler] Physik.pas(116): Objekt oder Klassentyp erforderlich
[Fehler] Physik.pas(118): Nicht genügend wirkliche Parameter <- Es sind aber genauso viele
[Fataler Fehler] Unit1.pas(56): Verwendete Unit 'Physik.pas' kann nicht compiliert werden


... :gruebel:

[Neutral General]

Hi,

du schreibst auch nicht

Delphi-Quellcode:

Integer := 5;

oder?

:arrow:

Delphi-Quellcode:

var Abc: Collision:
begin
  Abc.x := 1;

Gruß
Neutral General