Record mit $00 befüllen.

[Mathias]

Gibt es unterdessen etwas eleganteres, um alles Elemente eines Recordes auf 0 zu setzen ?

Code: Alles auswählen

var
  r: TRect;
begin
  FillChar(r, SizeOf(r), $00); 

[paweld]

Code: Alles auswählen

var
  r: TRect;
begin
  r := TRect.Empty;

[Mathias]

Da habe ich anscheinend das blödeste Beispiel mit einem Typehelpern erwischt.

Ich meinte generell für alle Recorde.

[Sieben]

Code: Alles auswählen

  MyRec := Default(TMyRec);

[Mathias]

Danke, dies geht.

[Mathias]

Code: Alles auswählen

  MyRec := Default(TMyRec);

Kann bei Default noch was anderes reinkommen, als TMyRec im obigen Beispiel ?
Wenn nein, was macht es dann für einen Sinn ?

[Sieben]

Guckst du hier.

[Warf]

Default ist eine Intrinsic die einen "leeren" wert für einen Beliebigen typen zurück gibt. Der Grund warum es einen Parameter nimmt ist da es nicht nur zum Initialisieren genutzt werden kann, sondern auch in Ausdrücken:

Code: Alles auswählen

procedure Foo(ARec: TMyRec);
...

begin
  Foo(Default(TMyRec)); // wird mit Leerem MyRec aufgerufen
end.

Außerdem sollte dazu gesagt sein da Default ein Assignment macht (und zumindest auf trunk/main mittlerweile initialized data nutzt), ist es im gegensatz zu Fillchar sogar Kompatibel mit managed typen:

Code: Alles auswählen

type
  TMyRec = record
    S: String;
  end;
  
var
  r: TMyRec;
begin
  r.S:='Hello World';
  UniqueString(r.S);
  FillChar(r, SizeOf(r), #00); // Erzeugt memory leak
  //vs
  r:=Default(TMyRec); // Kein memory leak
end.

[Mathias]

Jetzt wäre noch super wen sowas gehen würde.
Besonders wen es sich um einen komplexen Record handelt.

Code: Alles auswählen

procedure Test;
const
   foo: TfooRec=default(TfooRec);

[six1]

Gibt es unterdessen etwas eleganteres, um alles Elemente eines Recordes auf 0 zu setzen ?

Code: Alles auswählen

var
  r: TRect;
begin
  FillChar(r, SizeOf(r), $00); 

also für das Verständnis und die Lesbarkeit, meiner Meinung nach, nicht zu übertreffen!

alles andere ist dann wieder so C-artig +~#'!§$

[fliegermichl]

Sehe ich auch so, verursacht aber einen Hint, daß der Bezeichner nicht initialisiert sein könnte.

[Warf]

also für das Verständnis und die Lesbarkeit, meiner Meinung nach, nicht zu übertreffen!

Ich mein es ist halt in vielen Fällen falsch, und da es ein statement ist und keine Expression nicht so vielseitig einsetzbar wie Default. Beispiel:

Code: Alles auswählen

generic function Foo<T>(AValue: T): T;
...
specialize Foo<TMyType>(default(TMyType));

Geht mit FillChar erstmal kategorisch nicht, weil man Fillchar nicht als expression übergeben kann, zum anderen wäre Fillchar an dieser stelle auch potentiell nicht Korrekt denn TMyType kann managed sein.

alles andere ist dann wieder so C-artig +~#'!§$

Fillchar ist eine eins zu eins Kopie der C funktion memset. Default als konstrukt gibt es in C nicht.
Wie kann etwas was es nicht in C gibt C-Artiger sein als etwas das aus C kopiert wurde?

[Mathias]

Gibt es unterdessen etwas eleganteres, um alles Elemente eines Recordes auf 0 zu setzen ?

Code: Alles auswählen

var
  r: TRect;
begin
  FillChar(r, SizeOf(r), $00); 

also für das Verständnis und die Lesbarkeit, meiner Meinung nach, nicht zu übertreffen!

alles andere ist dann wieder so C-artig +~#'!§$

Ich muss leider sagen, es gibt viele Sachen, da hat C die Nase vorn.
Sowas geht zB. in C sehr elegant. Pascal erzeugt eine Syntax Fehler.

Code: Alles auswählen

// In einer Unit
type
  TRect = record
    x, y, w, h: integer;
  end;

const
  ZERO_RECT: TRect = (x: 0; y: 0; w: 0; h: 0);

// Im Hauptprogramm
  procedure foo;
  const
    r: TRect = ZERO_RECT;
  begin

  end;

[Warf]

Die (partielle) Struct Initialisierung seit C99 ist tatsächlich etwas was Pascal wirklich fehlt.

Bei der Deklaration den wert zu setzen

Code: Alles auswählen

myStruct s = {.x=42, .y=3.14};

Funktioniert so auch grundsätzlich in Pascal

Code: Alles auswählen

rec: TMyRec = (x:42,;y:3.14);

Aber was man bei C halt machen kann ist diese syntax auch im Funktionskörper benutzen:

Code: Alles auswählen

if (cond)
  s = {.x=42,.y=3.14};
else
  s = {.x=32,.y=2.71};

Und das geht in Pascal nicht so einfach.

Was ich schonmal überlegt habe zu bauen wäre default zu erweitern:

Code: Alles auswählen

rec := Default(TMyRec;X:42;Y:3.14);

Wobei dann der rest mit 0 aufgefüllt wird, so wie auch bei C

[Mathias]

Code: Alles auswählen

s = {.x=42,.y=3.14};

geht die nicht sogar einfacher ?

Code: Alles auswählen

s = {42, 3.14};