デルファイに記録するデフォルト値の設定方法

Question

私はRAD XE7を使用しています。私のDelphiアプリケーションでは、レコードのフィールドのデフォルト値を設定したいと思います。

私は次のコードを試しましたが、コンパイルされません、間違っているとわかります。私は別の方法がありますか？

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

Answer 1

あなたは、部分的に初期化されたレコードを定義するだけでconstant recordを宣言しますが、これらのパラメータは、デフォルト値を必要としない省略したい場合：

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

デルファイの「class like」レコードタイプの追加により、あなたはクラス関数を使ってこれを解決することができます。

あなたの記録にはclass function CreateNew: TDtcData; static;を定義してください。

実装では、結果のレコードのデフォルト値を設定します。

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

このようなデフォルト値を持つレコードを取得するには、これを使用する：

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