Optionale (= vorbelegte) FunktionsParameter vom Type Record - Wie geht das?

[Andreas13]

Hallo Community,
ich möchte gerne Optionale (= vorbelegte) FunktionsParameter vom Type Record nach folgendem Muster verwenden:

Delphi-Quellcode:

Function p_ex(V, T, n: Extended; z: Extended = 1.25): Extended;
Begin
 . . .
End;

So funktioniert es natürlich einwandfrei.
Nun möchte ich einen vorbelegten Record als Parameter z übergeben:

Delphi-Quellcode:

Type
  TDRecord = Record
    X: Double;
    Y: Double;
  End;
      
Function p_Rec(V, T, n: Extended; z: TDRecord = (1.25, 2.5): Extended;
Begin
 . . .
End;

was der Compiler freilich ablehnt.

Hat jemand eine Idee wie ich den Parameter z mit Default-Werten vorbelegen könnte?
Geht das überhaupt?

Danke im Voraus!
Gruß, Andreas

[uligerhardt]

Als Defaultparameter geht das nicht, aber mit overload:

Delphi-Quellcode:

function p_Rec(V, T, n: Extended; const z: TDRecord): Extended; overload;
begin
 . . .
end;

function p_Rec(V, T, n: Extended): Extended; overload;
const
  z: TDRecord = (X: 1.25; Y: 2.5);
begin
  Result := p_Rec(V, T, n, z);
end;

[Andreas13]

Danke Uli für Deinen Vorschlag! Der einzige Schönheitsfehler ist nur, daß sich dadurch der Code verdoppelt und Redundanzen mit den bekannten Nachteilen entstehen.
Vielleicht kennt jemand einen noch besseren Weg?
Gruß, Andreas

[KodeZwerg]

Das Record wie eine Klasse aufbauen, also per "strict private" variablen und einer "Init" methode vielleicht?

[uligerhardt]

Zitat von Andreas13:

Danke Uli für Deinen Vorschlag! Der einzige Schönheitsfehler ist nur, daß sich dadurch der Code verdoppelt und Redundanzen mit den bekannten Nachteilen entstehen.
Vielleicht kennt jemand einen noch besseren Weg?
Gruß, Andreas

Nö - die eine Routine ist ja nur ein dünner Wrapper, der die andere aufruft.

[Andreas13]

@KodeZwerg:
Die einfache herkömmliche Alternative wäre, in der rufenden Routine den Record z vorzubelegen z.X:= 1.25; z.Y:= 2.5; und z so als Parameter zu übergeben.
Daraus Klassen zu machen mit "strict private" Variablen und einer "Init" - Methode wäre eine Kanone auf ein Spätzchen, zumal ich etliche solche Funktionen mit Vorbelegung habe. Dadurch wäre sowohl der Code, als auch die Benutzung wesentlich komplizierter.

@Uligerhardt:
In manchen Fällen wäre es in der Tat nur ein dünner Wrapper, wenn die Werte in z linear in die Routine p_Rec(V, T, n: Extended; const z: TDRecord): Extended; eingehen, also wenn z.B. gilt: p_Rec(V, T, n, z) := z.X*p_Rec(V, T, n) + z.Y; Aber oft sind die Werte z.X und z.Y auf eine wesentlich kompliziertere, nichtlineare Art und Weise in der Funktion enthalten.

Man kann sich das etwa so vorstellen: Die StandardFunktion verwendet für die Berechnung einer komplexen Formel z.B. z.X:= 1.25; z.Y:= 2.5; . Es gibt aber noch Funktion_1, Funktion_2, Funktion_3 etc., welche mit der gleichen Formel aber mit verschiedenen z-Werten arbeiten können. In solchen Fällen wäre es kein dünner Wrapper mehr, sondern eine Duplizierung des Codes der Berechnungsroutine.
Aber für die linearen Fälle ist Dein Vorschlag mit overload; eine gute Lösung.
Danke & Gruß, Andreas

[uligerhardt]

Zitat von Andreas13:

@Uligerhardt:
In manchen Fällen wäre es in der Tat nur ein dünner Wrapper, wenn die Werte in z linear in die Routine p_Rec(V, T, n: Extended; const z: TDRecord): Extended; eingehen, also wenn z.B. gilt: p_Rec(V, T, n, z) := z.X*p_Rec(V, T, n) + z.Y; Aber oft sind die Werte z.X und z.Y auf eine wesentlich kompliziertere, nichtlineare Art und Weise in der Funktion enthalten.

Man kann sich das etwa so vorstellen: Die StandardFunktion verwendet für die Berechnung einer komplexen Formel z.B. z.X:= 1.25; z.Y:= 2.5; . Es gibt aber noch Funktion_1, Funktion_2, Funktion_3 etc., welche mit der gleichen Formel aber mit verschiedenen z-Werten arbeiten können. In solchen Fällen wäre es kein dünner Wrapper mehr, sondern eine Duplizierung des Codes der Berechnungsroutine.
Aber für die linearen Fälle ist Dein Vorschlag mit overload; eine gute Lösung.
Danke & Gruß, Andreas

Meine Lösung kann Defaultparameter ersetzen, mehr nicht. Was du hier beschreibst, ginge ja auch mit Defaultparametern nicht.

[KodeZwerg]

Delphi-Quellcode:

type
  MyRec = packed record
    public
      procedure DoJob(const AValue: Integer = -1; const BValue: DOUBLE = 1.23);
  end;

var
  Form15: TForm15;

implementation

{$R *.dfm}

procedure MyRec.DoJob(const AValue: Integer = -1; const BValue: Double = 1.23);
begin
  //
end;

Habe es gerade mal ausprobiert und es compiliert ohne einen Fehler zu werfen.