Standardwert für Eigenschaft definieren

[Yheeky]

Hi,

man kann ja bei einer globalen Variable einen Standardwert definieren wie z.B.

Delphi-Quellcode:

var xWert : Integer = 30;

Ich habe nun eine kleine Datenstruktur erstellt und da funktioniert das nicht.

Delphi-Quellcode:

type
  TFahrzeug = (auPKW, auLKW);

  TFahrzeugdaten = record
    Art : TFahrzeug = auPKW;
    Marke : String;
    AnzahlRaeder, Tueren : SmallInt;
  end;

Wieso funktioniert die Zuweisung eines Standardwertes hier nicht? Wichtigere Frage: wie kann ich einen Standardwert definieren?

[shmia]

Standardwerte gibt es bei Delphi nur bei Übergabeparametern oder bei globalen Variablen.
Beste Lösung für dich:
mach aus dem Record ein Klasse und füge einen Konstruktor hinzu. Im Konstruktor werden dann die Standardwerte gesetzt.

[tomsel]

Delphi-Quellcode:

type

  TFahrzeug = (auPKW, auLKW); 

  TFahrzeugdaten = record 
    Art : TFahrzeug; 
    Marke : String; 
    AnzahlRaeder, Tueren : SmallInt; 
  end;

const
  Fahrzeug: TFahrzeugdaten = (Art: auPKW; Marke: 'Töfftöff'; AnzahlRaeder: 5; Tueren: 0);

OH Stichwort "typisierte Konstanten" -> "Rekord-Konstanten"

Auch, wenn's Konstante heißt, ist eine typisierte Konstante wie eine Variable zu verwenden. Es handelt sich also genau genommen um eine initialisierte Variable.

[Yheeky]

Super, klappt wunderbar! Danke!

[tomsel]

Welche Variante? Klasse mit Constructor oder Rekordkonstante?

[Fussball-Robby]

Ich denke die Rekordkonstante.
Bei einer Klasse kann man es übrigens auch so machen:

Delphi-Quellcode:

type

  TFahrzeug = (auPKW, auLKW);

  TFahrzeugdaten = class
  private
    FArt: TFahrzeug;
    procedure SetArt(const Value: TFahrzeug);
  published
    property Art : TFahrzeug read FArt write SetArt default auPKW;
  end;

Mfg

[tomsel]

Sicher? Die Direktive default hat doch eine andere Funktion

[Apollonius]

Den Default-Wert muss man trotzdem noch im Konstruktor setzen. Er bewirkt nur, dass kein Eintrag in der .dfm-Datei gemacht wird, falls er gesetzt ist.

[Fussball-Robby]

Gut, wieder was dazu gelernt. Zum Glück hab ich default noch nie wirklich so benutzt :mrgreen:

[Yheeky]

Die Variante aus Beitrag #3. Muss nicht mal alle Eigenschaften definieren, sondern es reicht, wenn ich eine definiere. Spricht etwas gegen diese Variante?