Klasse mit vordefinierter Variable?

[Jelly]

Zitat von sh17:

mit properties kann man das per default-wert machen, geht dann IMO nicht private

Der Default Wert einer Klasse hat nichts mit der Vorbelegung zu tun, sondern ist die Eigenschaft, die genutzt wird, wenn keine Eigenschaft angegeben wird... Beispiel:

Delphi-Quellcode:

sl := TStringList.Create ;
s1.add ('Blubb') ;
Showmessage (s1[0]) ;     -> s1[0] ist eigentlich s1.items[0]

Aber zum Thema...

Ab Delphi 2006 (oder eventuell ab 2005 ???) kann man im Klassenkopf Konstanten definieren:

Delphi-Quellcode:

myclass = class
const
  _LastZellenzahl = 0; 
private
   ...
public 
   ...
end ;

[TBx]

hallo!

Nein, Deine const - Deklarationen werden nicht pro Objekt angelegt, sondern einmalig durch die Unit definiert.

Ich denke mal, Du wolltest hier auch gar keine Konstante, sondern nur eine Variable nach deklaration mit einbem Startwert belegen.
Das geht nur über das genannte Konstrukt mit dem constructor

Gruß

onlinekater

PS
@nh17: properties können private, public, protected oder auch published angelegt werden. No Problem

[moelski]

Moin !

Also um es mal zusammenzufassen:

Delphi-Quellcode:

TLVSpectraII = class(TObject) 
    public 
      constructor Create; 

      function 1....; 
    private 
      EnergieSumme:     Double;       // 
      _LastZellenzahl : Byte;         // 
  end; 

constructor TLVSpectraII.Create; 
begin 
  inherited Create;     // Geerbten Konstruktor aufrufen. 
  _LastZellenzahl := 0;        // Variablen vor erster benutzung setzen 
  _LastZyklus     := 0; 
  _LastStatus     := 0; 
  _LastTimeTicker := 0; 
end;

Das wäre dann eine Lösung für mein Problem die funktioniert?

[TBx]

Ja, unter der Voraussetzung, daß Du die im Create verwendeten Variablen dann auch noch deklarierst ....

Gruß

onlinekater

[moelski]

Moin !

Ja klar ...

Delphi-Quellcode:

    private
      EnergieSumme:     Double;       // für KonvertierenGeratedaten als Merker nötig !
      _LastZellenzahl : Byte;         // speichern Zustand der letzten Daten
      _LastZyklus     : Byte;
      _LastStatus     : Byte;
      _LastTimeTicker : TLVTimeTicker;

Der Vollständigkeit halber

Vielen Dank für die Infos.

[sh17]

Zitat:

_LastTimeTicker : TLVTimeTicker;

Der kann aber nicht mit 0 initialisiert werden.

[Jelly]

Zitat von sh17:

Zitat:

_LastTimeTicker : TLVTimeTicker;

Der kann aber nicht mit 0 initialisiert werden.

Wenn TLVTimeTicker eine eigene Klasse ist, so sollte der Konstructor dieser Klasse die Initialisierungen übernehmen. Wenn Du in deiner Klasse andere Werte brauchst, so musst Du sie in deinem Konstruktor noch entsprechend anpassen:

_LastTimeTicker.IrgendeienProperty := 0 ;