Feldvariable in Klasse Initialisieren

[TankWart]

guten Morgen zusammen,
ich würde gerne eine Integer Feldvariable direkt in der dazugehörigen Klasse mit dem Wert 1 initialisieren.
Ist das irgendwie möglich und wo mache ich dann die Initialisierung?
Die Varible ist in unten stehende Klasse enthalten und heist FeditEventID.

Delphi-Quellcode:

interface
  type
    TifEditEvent = class
    private
      FeditEventID: Integer;
    public
      property editEventID: Integer read FeditEventID write FeditEventID;
    end;

Ich danke schon mal im Voraus


Gruß

TankWart

[jmd anders]

also ich würde das im constructor der klasse machen

[Jelly]

Zitat:

Zitat von jmd anders

also ich würde das im constructor der klasse machen

Ne andere möglichkeit gibts ja auch nicht :mrgreen:

Delphi-Quellcode:

interface 
  type 
    TifEditEvent = class 
    private 
      FeditEventID: Integer; 
    public 
      Constructor Create ; override ;
      property editEventID: Integer read FeditEventID write FeditEventID; 
    end;

implementation

constructor TidEditEvent.Create ;
begin
     inherited ;
     FeditEventID := 4711 ;
end ;

[Pfoto]

Hallo!

ich mache das zwar auch immer im Constructor, habe jedoch
auch mal folgende Sache gesehen (und noch nicht ausprobiert):

Delphi-Quellcode:

property editEventID: Integer read FeditEventID write FeditEventID default 1;

Wäre das nun das gleiche?

EDIT
Habe gerade das gefunden aus der Delphi-Hilfe:
"Eigenschaftswerte werden nicht automatisch auf den Standardwert initialisiert, d. h. die Standarddirektive steuert nur das Speichern von Eigenschaftswerten in der Formulardatei und nicht das Speichern des ersten Werts der Eigenschaft in einer neu erstellten Instanz."


Gruß
Pfoto

[Jelly]

Wenn du published Eigenschaften einer Komponente mit einem default Wert versiehst, so wird diese nicht in der .dfm Datei gespeichert, falls die Eigenschaft diesen Wert annimmt. default heisst aber nicht, dass die Eigenschaft mit dem Wert initialisiert wird.

[TankWart]

Danke für die schnellen Antworten,
haben mir alle was gebracht.

Gruß

TankWart