Bonjour

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?