Record als Result einer Funktion

[Frickler]

Zitat von Uwe Raabe:

Zitat von NoGAD:

Kannst Du das als Text kopieren? Ich habe keinen Zugriff auf die Seiten.

Sorry, dann ist das wohl geschütztes Material. In dem Fall (und überhaupt) empfehle ich den Erwerb des Buches.

Nö, ich komm drauf.

Da wird vorgeschlagen, statt einer Funktion "Bla(startDatum, endDatum)" eine Funktion "Bla(DatumsBereich)" zu erstellen, mit "DatumsBereich" als Parameterobjekt. In Delphi macht man zweckmäßigerweise einen erweiterten Record, dem man zusätzlich zu den reinen Daten auch noch Methoden zur Initialisierung mitgeben kann:

Delphi-Quellcode:

type TDatumsBereich = record
                        Von, Bis: TDateTime;
                        procedure Heute;
                      end;

procedure TDatumsBereich.Heute;
begin
  Von := Date; Bis := Date;
end;