Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi typisierte konstante in einer class (https://www.delphipraxis.net/105605-typisierte-konstante-einer-class.html)

Niklas- 25. Dez 2007 20:48


typisierte konstante in einer class
 
Hallo

Ich bin (noch) ziemlicher Delphi Anfänger.

Ich möchte in einer class einen Haufen eigenschaften von etwas sammeln. Einige eigenschaften sind bei allen Objekten dieser class gleich, diese sollen sich aber später ändern lassen. Ich dachte da an typisierte Konstanten. Nur mag Delphi das hier nicht:
Delphi-Quellcode:
type
  TInventar = class
    Name : String;
    Beschreibung : String;
    gefunden : boolean;
    mitnehmen : boolean;
    const eingepackt : boolean = false;
    untersuchen : TInventar;
  end;
Eigentlich möchte ich nicht jedes mal eingepackt neu auf false setzen müssen.
Nun sind zwar boolean variablen automatisch false, aber ich würde auch gerne einen string als typisierte Konstante in die Klasse einbauen - nur wie???

Danke schonmal!!

Bernhard Geyer 25. Dez 2007 20:50

Re: typisierte konstante in einer class
 
Geht nicht. Du mußt die Initialiserung im Konstruktor erledigen.

Niklas- 25. Dez 2007 21:16

Re: typisierte konstante in einer class
 
Hmm, und was heißt das genau?? :wiejetzt:

Kannst du das nochmal für Noobs erklären??

Prinzipiell geht es mir darum allen Variablen gleichen Namens in den unterschiedlichen Klassen den gleichen Wert zuzuweisen...

Also im Prinzip für alle TInventar:
Delphi-Quellcode:
*.eingepackt := false;
Danke!!

Bernhard Geyer 25. Dez 2007 22:27

Re: typisierte konstante in einer class
 
Für die unterschiedlichen Instanzen der gleichen Klasse:
Delphi-Quellcode:
type
  TInventar = class
  public
    constructor Create; virtual;
  end;

constructor TInventar.Create;
begin
  inherited;
  eingepackt := False;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz