Wie setze ich den Standardwert für die Aufzeichnung in Delphi

Question

Ich verwende RAD XE7. In meiner Delphi-Anwendung möchte ich Standardwerte für Felder von Records festlegen.

Ich versuchte folgenden Code, aber es kompiliert nicht, ich weiß, dass es falsch ist. Ich da noch einen anderen Weg?

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

Answer 1

Wenn Sie eine teilweise initialisiert Datensatz definieren wollen, erklären nur constant record, aber diese Parameter nicht Standardwerte auslassen benötigen:

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

Mit dem Zusatz von ‚class like‘ in Delphi-Datensatztypen, Sie könnten dies lösen, indem Sie eine Klassenfunktion verwenden.

Definieren Sie class function CreateNew: TDtcData; static; für Ihre Aufzeichnung.

Die Implementierung der Standardwerte für die resultierenden Datensatz:

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

dies einen Datensatz mit den Standardwerten wie diese zu erhalten verwenden:

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