Funktionsaufruf mit Parameter vom Typ Record

[Max Senft]

Hi @ll!

Ich habe eine kleine Frage an alle Delphianer da draußen...
ich bin gerade etwas am Tüfteln und da hab ich nu ne eigens Programmierte Funktion die nen Parameter vom Typ Record erwartet, natürlich alles selbst erzeugt.

Das Record sieht folgendermaßen aus:

Delphi-Quellcode:

TmyPoint = record
  X, Y: single;
end;

Die Prozedur ist in der Art

Delphi-Quellcode:

procedure myProc(APoint: TmyPoint);

Die Frage ist nun, ob ich für den Prozeduraufruf erstmal ne Variable erstellen muss, und den einzelnen Recordvariablen die Werte zuweisen muss oder ob das irgendwie hübscher geht. Ist es möglich das ganze in der Art von

Delphi-Quellcode:

myProc(TmyPoint(0, 1)); // 0 = X, 1 = Y

aufzurufen oder ist das bei Delphi überhaupt nicht vorgesehen?

Danke schonmal für eine Antwort.

Bye
Max Senft

[Khabarakh]

Das kann selbst mit der Operatorüberladung von Delphi 2006 nicht funktionieren, da ein expliziter Cast immer nur ein Argument hat. Du musst also eine ganz normale Funktion schreiben.

Delphi-Quellcode:

// GR32.pas
function FloatPoint(X, Y: Single): TFloatPoint;
begin
  Result.X := X;
  Result.Y := Y;
end;

[Max Senft]

Hi!

Nunja, mir ist grad noch aufgefallen, dass sich die Frage für mein spezielles Problem im Programm gelöst hat, weil ich eh noch ne "Zwischenprozedur" aufrufen musste, die mir dann sowieso meinen benötigten Record-Typ zurückliefert.

Aber ansonsten ist meine Frage ja auch beantwortet. Geht sowas ähnliches denn in anderen Programmiersprachen? (rein interessehalber)

Bye
Max Senft

[Khabarakh]

Ein expliziter Cast mit mehreren Argumenten? Nein, denn das wäre einfach nur dämlich :stupid: . Aber was hast du denn gegen eine harmlose Funktion :gruebel: ?

[Oxmyx]

Ja, in C++ geht das z.B. so:

Code:

class Point
{
    Point() {}
    Point(float _x, float _y) : x(_x), y(_y) {}
    ~Point() {}
    float x, y;
}

////////////
Aufruf:

myFunc(Point(0.0f, 1.0f));

[Lemmy1]

Seit Delphi 2006 geht das, indem man dem Record einen Constructor verpasst. Vorteil dabei ist, dass Record und Funktion dann fest verschweißt sind.