Initialiser un record à l'aide de Default

Bonjour

Il y a quelques jours j'ai vu sur un forum le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

type TSomeRecord = record field1: integer; field2: string; field3: boolean; procedure Clear; end;   { TSomeRecord }   procedure TSomeRecord.Clear; begin Self := Default(TSomeRecord); end;

---

Je n'avais jamais vu cette façon de faire.
Vous en pensez quoi ?

https://docwiki.embarcadero.com/Libr...System.Default

C'est une mise à zéro du record

Et la pertinence dépend du besoin et de la portée, comme évoqué dans https://www.developpez.net/forums/d2...-constructeur/

Je connaissais Finalize mais ça, pas du tout.
Donc, c'est équivalent à

Code:

---

1 2 3 4

procedure TSomeRecord.Clear; begin Finalize(Self); end;

---

??

C'est l'équivalent de

Code:

---

1 2 3 4 5

procedure TSomeRecord.Clear; begin Finalize(Self); ZeroMemory(@Self, SizeOf(Self)); end;

---

A la différence que cela utilise une autre méthode pour faire le ZeroMemory, à coup d'instruction ASM STOSQ (explicite ou en boucle passé dès 48o de record) et STOSB, STOSW, STOSD en cas de packed record
Default serait donc potentiellement plus rapide car cela fait des Call en moins que ZeroMemory qui appelle FillChar

D'accord, il faut aussi le ZeroMemory.
Eh bien à partir d'aujourd'hui, j'utiliserai Default :)

Merci pour ce complément d'info.