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

[himitsu]

Warum kommt niemand auf die Idee sich mal zu überlegen, ob es überhaupt sinnvoll ist, sooooo viele Parameter zu haben.

PS, dazu wird in vielen StyleGuides was gesagt, nicht nur bezüglich Delphi.
Lösung: DataRecords bzw. DataObjects

Aber das kann man auch problemlos umdrehen, also anstatt Parameter-Record/Objekt an Funktion, einfach die Funktion in den Record/Objekt.

Delphi-Quellcode:

type
  TNuRohrTubulent = record  // oder als Klasse
    Re, Pr, d_i, L, Eta, Eta_W: Double;
    c1, c2, c3, c4, c5, c6: Double;
    class operator Initialize(out Dest: TNuRohrTubulent);
    function Calc: Double;
  end;

class operator TNuRohrTubulent.Initialize(out Dest: TNuRohrTubulent);
begin
  Dest.Re := NaN;
  Dest.Pr := NaN;
  Dest.d_i := NaN;
  Dest.L := NaN;
  Dest.Eta := NaN;
  Dest.Eta_W := NaN;
  Dest.c1 := 0.0235;
  Dest.c2 := 0.80;
  Dest.c3 := 230;
  Dest.c4 := 1.80;
  Dest.c5 := 0.3;
  Dest.c6 := 0.80;
end; 

function TNuRohrTubulent.Calc: Double;
begin
  Assert(not (IsNan(Re) or IsNan(Pr) or IsNan(d_i) or IsNan(L)
    or IsNan(Eta) or IsNan(Eta_W)), 'TNuRohrTubulent: params missing');
  Result := c1
    * (Power(Re, c2) - c3)
    * (Power(Pr, c5) * c4 - c6)
    * (Power(d_i / L, 2/3) + 1)
    * Power(Eta / Eta_W, 0.14);
end;

[Andreas13]

Himitsu,
der Grund ist die für mich wesentlich einfachere und übersichtlichere Handhabung der "stinknormal" prozedual erstellten altmodischen – aber vielfach getesteten und bewährten – Funktionen & Prozeduren meistens ohne Klassen und Records. Warum kompliziert, wenn es auch einfach geht.
Ich weiß, meine Ansichten sind nicht ganz zeitgemäß: Mein fortgeschrittenes Alter möge als Entschuldigung dienen…

Danke & Gruß, Andreas

[himitsu]

Naja "zeitgemäß" ....

das mit den "zuvielen Parametern" wird schon seit Jahrzehnten in StyleGuids/Pattern angekreidet, dass man sowas besser nicht machen sollte.

Delphi-Quellcode:

type
  TNuRohrTubulentParameter = record // oder object
    Re, Pr, d_i, L, Eta, Eta_W: Double;
    c1, c2, c3, c4, c5, c6: Double;
  end;

function NuRohrTubulent(const Parameter: TNuRohrTubulentParameter): Double;

[Uwe Raabe]

Nun braucht man nur noch ein Create für den Record mit den besagten optionalen Parametern und man ist wieder am Anfang - nur komplizierter.

Ne, is klar. Parameter Records sind schon besser, weil man damit sowas wie benannte Parameter realisieren kann, die Parameter leicht erweitern oder verändern kann. Aber es ist halt auch vor dem Aufruf um einiges komplexer.

[himitsu]

Das Create Initialize machen die Records jetzt auch alleine. (siehe #19)

Komplizierter? (bei Verwendung oder nur bei der Definition)

Naja, beim Befüllen ist es aber sicherer sichtbarer was an wen übergeben wird.
Bei vielen Parametern kann man schnell mal verrutschen, vorallem wenn alles den selben Typ hat ... und rein optisch kommt es fast auf's Selbe raus, wie die Array-Lösung von #14.



In den Record kann man auch eine/mehrere Setter-Funktionen machen, wo man dennoch mehrere Parameter zusammen befüllen kann. (z.B. in 2-3 kleinere Gruppen aufgeteilt)
Beim Record muß man sich um die Instanz nicht zu kümmern, also z.B.
X := NuRohrTubulent(TNuRohrTubulentParameter.Create.SetRPDL(Re, Pr, d_i, L).SetEta(Eta, Eta_W).SetC(c1, c2, c3, c4, c5, c6));
und hier lässt sich ebenso problemlos was weglassen, z.B. die ganzen Cs.