Comment définir la valeur par défaut pour enregistrer en Delphi

Question

J'utilise RAD XE7. Dans mon application Delphi, je veux définir des valeurs par défaut pour les champs d'enregistrements.

J'ai essayé le code suivant, mais il ne compile pas, je sais que c'est faux. Y-a-t-il un autre moyen?

TDtcData = record 
    TableFormat  : TExtTableFormat = fmNoExtendedData; 
    DTC    : integer = 0; 
    Description  : string = 'Dummy'; 
    Status   : TDtcStatus;  
    OccurenceCnt : integer =20; 
    FirstDTCSnapShot: integer; 
    LastDTCSnapShot: integer; 
    end; 

Answer 1

Si vous souhaitez définir un enregistrement partiellement initialisé, juste Déclarez une constant record, mais omettent ces paramètres ne pas avoir besoin des valeurs par défaut:

Type 
    TDtcData = record 
    TableFormat  : TExtTableFormat; 
    DTC    : integer; 
    Description  : string; 
    Status   : TDtcStatus; 
    OccurenceCnt : integer; 
    FirstDTCSnapShot: integer; 
    LastDTCSnapShot: integer; 
end; 

Const 
    cDefaultDtcData : TDtcData = 
    (TableFormat : fmNoExtendedData; 
    DTC : 0; 
    Description : 'Dummy'; 
    OccurenceCnt : 20); 

var 
    someDtcData : TDtcData; 
begin 
    ... 
    someDtcData := cDefaultDtcData; 
    ... 
end; 

Answer 2

Avec l'ajout de types d'enregistrement « class like » en Delphi, vous pouvez résoudre cela en utilisant une fonction de classe.

Définissez class function CreateNew: TDtcData; static; pour votre dossier.

La mise en œuvre définit les valeurs par défaut pour l'enregistrement résultant:

class function TDtcData.CreateNew: TDtcData; 
begin 
Result.TableFormat := fmNoExtendedData; 
Result.DTC := 0; 
Result.Description := 'Dummy'; 
Result.OccurenceCnt := 20; 
end; 

L'utilisation de ce pour obtenir un enregistrement avec les valeurs par défaut comme ceci:

var 
    AData: TDtcData; 
begin 
    AData := TDtcData.CreateNew;; 
end.