Record als Result einer Funktion

[NoGAD]

Zitat:

Zitat von Uwe Raabe (Beitrag 1460789)

Zitat:

Zitat von NoGAD (Beitrag 1460787)

Automatisch erstellte Forms sind auch globale Variablen.

Ja, und die gelten vielen auch als böse.

Was hilft dagegen?
Ich möchte gerne wissen, wie ein Funktionsaufruf mit 50 Parametern gut sein soll?

[dummzeuch]

Zitat:

Zitat von NoGAD (Beitrag 1460787)

Generell habe ich eine Frage dazu:

Automatisch erstellte Forms sind auch globale Variablen.
Was ist der Unterschied zu einer in einer Unit gekapselten globalen Variable?

Es gibt keinen, außer, dass die IDE sie automatisch erstellt.

Deshalb sind diese Variablen auch mit das erste, was ich lösche (nach den unsinnigen Kommentaren ala "private Deklarationen"). Es gibt in meinen Programmen immer nur genau eine globale Form-Variable: Die Main-Form, die beim Programm automatisch erzeugt wird. Der Rest wird bei Bedarf mit lokalen Variablen erzeugt.

twm

[Uwe Raabe]

Zitat:

Zitat von NoGAD (Beitrag 1460790)

Was hilft dagegen?
Ich möchte gerne wissen, wie ein Funktionsaufruf mit 50 Parametern gut sein soll?

Ist er nicht. Das rechtfertigt aber immer noch keine globalen Variablen - insbesondere nicht als implizite Parameter-Puffer.

Ein Ansatz wäre die (oder einige der) Parameter in einer Record-Struktur oder einem Parameter-Objekt zusammenzufassen. Sollte sich an der Parameterliste später mal was ändern, bleiben zumindest die Signaturen der Methoden unverändert.

Andererseits schreit eine Methode mit 50 Parametern eigentlich auch nach einer Separierung der Funktionalität in eine eigene Klasse.

[NoGAD]

Zitat:

Zitat von Uwe Raabe (Beitrag 1460792)

Ein Ansatz wäre die (oder einige der) Parameter in einer Record-Struktur

Das verstehe ich leider nicht. Meine monierte globale Variable ist ein Record. :?:

[Uwe Raabe]

Der Record soll als Parameter an die Methode übergeben werden.

[NoGAD]

Zitat:

Zitat von Uwe Raabe (Beitrag 1460794)

Der Record soll als Parameter an die Methode übergeben werden.

Danke. Ich überdenke es.

[Uwe Raabe]

Das bezog sich auch eigentlich auf den Einwand mit den 50 Parametern, die man besser in einen Parameter-Record oder ein Parameter-Objekt umwandeln sollte.

Siehe auch: Introduce Parameter Object

[NoGAD]

Zitat:

Zitat von Uwe Raabe (Beitrag 1460796)

Siehe auch: Introduce Parameter Object

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

[Uwe Raabe]

Zitat:

Zitat von NoGAD (Beitrag 1460798)

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.

[NoGAD]

Wäre es denn sinnvoll, aus OOP - Sicht, meine Unit: Unit_ABS_DBFunctions.pas neu zu schreiben?


Jedoch fehlt mir das Wissen, um hier z.B. eine eigene Klasse zu erstellen.

[Frickler]

Zitat:

Zitat von Uwe Raabe (Beitrag 1460799)

Zitat:

Zitat von NoGAD (Beitrag 1460798)

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;

[NoGAD]

Zur Info:

Ich habe ein weiteres Thema eröffnet https://www.delphipraxis.net/203833-...rogrammes.html.

[Rolf Frei]

Zitat:

Zitat von NoGAD (Beitrag 1460624)

Hallo,

wenn ich einen Record deklariere und diesen dann einer Funktion als Result zuordne, werden alle Werte innerhalb des Records auf True gesetzt.

Warum, weiß ich nicht.

Hier ein Beispiel:

Code:

type
  TTest_Result = record
    Test_a : Boolean;
    Test_b : Boolean;
    Test_c : Boolean;
  end;


  function test(a:integer):TTest_Result;

  function test(a:integer):TTest_Result;
  begin
    Result.Test_a := True;
  end;

Rufe ich die funktion nun auf, ist alles vom Result auch True.

Eine Zuweisung mittels Result.Test_b := False; z.B. innerhalb der function oder vorher aus dem Aufruf der function heraus, bringt auch nichts.


Warum passiert das und wie behebe ich diesen Fehler?

LG Mathias

Du gibst einen uninitialsierten Record zurück. Daher ist es Zufall, was da deine Boolean für Werte haben. Ist das Byte auf auf das der Boolean zeigt per Zufall 0 ist es False, alles andere wird zu True. Die Lösung ist ganz einfach. Initialisieren den Recordspeicher mit Nullen.

Code:

type
  TTest_Result = record
    Test_a : Boolean;
    Test_b : Boolean;
    Test_c : Boolean;
  end;

  function test(a:integer):TTest_Result;

  function test(a:integer):TTest_Result;
  begin
    FillChar(Result, SizeOf(Result), 0);
    Result.Test_a := True;
  end;

[Uwe Raabe]

Zitat:

Zitat von Rolf Frei (Beitrag 1460822)

Code:

  function test(a:integer):TTest_Result;
  begin
    FillChar(Result, SizeOf(Result), 0);
    Result.Test_a := True;
  end;

Alternativ geht auch

Delphi-Quellcode:

  function test(a:integer):TTest_Result;
  begin
    Result := Default(TTest_Result);
    Result.Test_a := True;
  end;

[NoGAD]

Zitat:

Zitat von Uwe Raabe (Beitrag 1460823)

Zitat:

Zitat von Rolf Frei (Beitrag 1460822)

Code:

  function test(a:integer):TTest_Result;
  begin
    FillChar(Result, SizeOf(Result), 0);
    Result.Test_a := True;
  end;

Alternativ geht auch

Delphi-Quellcode:

  function test(a:integer):TTest_Result;
  begin
    Result := Default(TTest_Result);
    Result.Test_a := True;
  end;

Dankeschön. Irgendwie ist mir der Beitrag von Rolf entgangen. Das hilft mir auf jeden Fall schon einmal weiter und erleichtert mir die Grundinitialisierung eines Records.

[Rolf Frei]

Zitat:

Zitat von Uwe Raabe (Beitrag 1460823)

Alternativ geht auch

Delphi-Quellcode:

  function test(a:integer):TTest_Result;
  begin
    Result := Default(TTest_Result);
    Result.Test_a := True;
  end;

Default kenne ich noch garnicht. Wann wurde das eingeführt? In der 10.3 Hilfe finde ich nichts dazu.

[dummzeuch]

Zitat:

Zitat von Uwe Raabe (Beitrag 1460799)

Zitat:

Zitat von NoGAD (Beitrag 1460798)

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.

Wenn es geschützes Material ist, wundert es mich, dass ich Zugriff habe:

Da steht ein Beispiel, man soll das ...

function amountInvoiced(startDate, endDate) {...}
function amountReceived(startDate, endDate) {...}
function amountOverdue(startDate, endDate) {...}

... ändern in ...

function amountInvoiced(aDateRange) {...}
function amountReceived(aDateRange) {...}
function amountOverdue(aDateRange) {...}

Also aus zwei Parametern einen machen, der diese beiden Werte sinnvoll kombiniert.

Natürlich ist das bei nur zwei Parametern nur bedingt sinnvoll (kann es aber sein), aber das Prinzip ist dasselbe wie bei 50 Parametern.

[Uwe Raabe]

Zitat:

Zitat von Rolf Frei (Beitrag 1460830)

Default kenne ich noch garnicht. Wann wurde das eingeführt? In der 10.3 Hilfe finde ich nichts dazu.

Das ist wieder so'ne Compiler-Magic. Eingeführt wurde das wohl in Delphi 2009.

[Rolf Frei]

Ok danke für die Info. Nach vielen Jahren wieder was Neues gelernt. :-D

[Uwe Raabe]

Zitat:

Zitat von dummzeuch (Beitrag 1460835)

Wenn es geschützes Material ist, wundert es mich, dass ich Zugriff habe:

Ja, hat mich auch gewundert, daß das angeblich nicht geht. Der Link sollte schon auf eine lesbare Seite führen, aber die weiterführenden Links gehen dann auf die Web-Ausgabe von Fowler's Refactoring Buch - und das ist nicht frei zugänglich. Da ich das aber erworben habe, sehe ich selbst da eben keine Beschränkung.

[Uwe Raabe]

Zitat:

Zitat von Rolf Frei (Beitrag 1460838)

Ok danke für die Info. Nach vielen Jahren wieder was Neues gelernt. :-D

Das ist ganz praktisch bei Generics:

Delphi-Quellcode:

type
  TMyGen<T> = class
    function Test: T;
  end;

function TMyGen<T>.Test: T;
begin
  Result := Default(T);
end;