AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Optionale (= vorbelegte) FunktionsParameter vom Type Record - Wie geht das?

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

Ein Thema von Andreas13 · begonnen am 4. Jun 2021 · letzter Beitrag vom 7. Jun 2021
Antwort Antwort
Seite 1 von 3  1 23   
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
440 Beiträge
 
Delphi XE5 Professional
 
#1

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

  Alt 4. Jun 2021, 23:52
Delphi-Version: 10.3 Rio
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
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher.
John C. Cornelius

Geändert von Andreas13 ( 4. Jun 2021 um 23:54 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.702 Beiträge
 
Delphi 2007 Professional
 
#2

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

  Alt 4. Jun 2021, 23:58
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;
Uli Gerhardt
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
440 Beiträge
 
Delphi XE5 Professional
 
#3

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

  Alt 5. Jun 2021, 00:22
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
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher.
John C. Cornelius
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.081 Beiträge
 
Delphi 10.3 Rio
 
#4

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

  Alt 5. Jun 2021, 00:52
Das Record wie eine Klasse aufbauen, also per "strict private" variablen und einer "Init" methode vielleicht?
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.702 Beiträge
 
Delphi 2007 Professional
 
#5

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

  Alt 5. Jun 2021, 06:00
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.
Uli Gerhardt
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
440 Beiträge
 
Delphi XE5 Professional
 
#6

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

  Alt 5. Jun 2021, 09:33
@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
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher.
John C. Cornelius
  Mit Zitat antworten Zitat
Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.702 Beiträge
 
Delphi 2007 Professional
 
#7

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

  Alt 5. Jun 2021, 10:32
@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.
Uli Gerhardt
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.081 Beiträge
 
Delphi 10.3 Rio
 
#8

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

  Alt 5. Jun 2021, 10:35
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.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
440 Beiträge
 
Delphi XE5 Professional
 
#9

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

  Alt 5. Jun 2021, 12:39
@Uligerhardt:
Zitat:
Meine Lösung kann Defaultparameter ersetzen, mehr nicht. Was du hier beschreibst, ginge ja auch mit Defaultparametern nicht.
Doch Uli, es funktioniert bestens, denn beim Aufruf der Funktion kann ich die optionalen Parameterwerte überschreiben, d.h. mit neuen Werten belegen, mit denen dann gerechnet werden soll.

Hallo KodeZwerg,
ja, aber damit hast Du den Record in optional vorbelegte Teile zerpflückt. Das würde bei mir etwa entsprechen:
Delphi-Quellcode:
Function p_Rec(V, T, n: Extended; X: Double = 1.25; X: Double = 2.5): Extended;
Begin
 . . .
End;
Das habe schon lange so, was ohne Probleme funktioniert. Aber die Liste meiner optionalen Parameter kann auch mal deutlich länger sein bis zu 20 Elementen und mehr, daher dachte ich ein einen vorbelegten Record, weil dies übersichtlicher wäre.

Hinzu kommt andererseits der eigentliche Auslöser, der mich über die Parameterübergabe als vorbelegten optionalen Record bewogen hat: Das ist die Verwendung der mathematischen Bibliothek Neslib.MultiPrecision. Das sind die Beweggründe & Vorläufer dafür, damit Ihr das Ganze besser verstehen könnt:

1): High-Precision Floating-Point Types for Delphihttps://blog.grijjy.com/2021/05/05/h...#comment-29726
2): High-Precision Floating-Point Types for Delphi - Hilfe beim Linken von C object files https://www.delphipraxis.net/207850-...ml#post1488969
3): Hilfe beim Linken von C object files in in Delphi XE5? https://entwickler-ecke.de/viewtopic...&postorder=asc
4): und meine Beiträge zu:
https://github.com/neslib/Neslib.Mul...ue+is%3Aclosed

Ich versuche momentan meine früheren Berechnungen testweise von Extended auf die höhere Genauigkeit DoubleDouble (32 Ziffern) und QuadDouble (64 Ziffern) umzustellen.
Beide neuen Datentypen sind im wesentlichen Records:
Delphi-Quellcode:
Type
DoubleDouble = record
  public
  X: array [0..1] of Double;
  . . .
End;
  . . .

QuadDouble = record
  public
  X: array [0..3] of Double;
    . . .
End;
Und diese Records kann man nicht zerpflücken, denn die Teile des Record-Arrays enthalten die weiteren Nachkommastellen, die nicht vom Benutzer, sondern von der Bibliothek intern nach aufwendigen iterativen Berechnungen bestimmt werden.

Damit ich meine zahlreichen "alten" Berechnungen, die viele vorbelegte optionale Parameter des Typs Extended enthalten auf DoubleDouble oder QuadDouble umstellen kann, müßte ich vorbelegte Records übergeben können, oder auf die Annehmlichkeit der vorbelegten optionalen Parameter verzichten...

Gruß, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher.
John C. Cornelius

Geändert von Andreas13 ( 5. Jun 2021 um 12:45 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.819 Beiträge
 
Delphi 10.4 Sydney
 
#10

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

  Alt 5. Jun 2021, 14:21
Nun, der Compiler lässt aber nun mal Default-Werte bei Record-Parametern nicht zu. Dann bleibt halt nur der von Uli beschriebene Ansatz mit overload.

Für den anfangs beschriebenen Anwendungsfall sehe ich da auch keinen wesentlichen Nachteil.
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;
Es lassen sich so Aufrufe mit und ohne z-Parameter schreiben, die auch korrekt ausgeführt werden. Wenn das nicht für deinen Anwendungsfall passt, dann zeig den doch mal. Es hilft ja nicht, wenn wir hier Lösungen für ein Problem suchen, was gar nicht existiert. Ich persönlich kann im Moment noch nicht sehen, wo es bei dir genau hakt.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf