Einzelnen Beitrag anzeigen

Muetze1
(Gast)

n/a Beiträge
 
#21

Re: Konstruktor Create Virtual oder nicht?

  Alt 30. Aug 2007, 10:23
Zitat von Sidorion:
Insofern isses gegenüber Delphi eingeschränkter, allerdings kann ich in C++ auch Variablen static machen, was bei Rekursionen und so extrem lecker sein kann. Hier heisst das dann das diese Variable nur einmal im Programm existiert (allerdings mit den entsprechenden Scopierungen, wie Klasse, Funktion usw.).
Das klappt in Delphi auch: Lokale Konstante mit Typ definieren und in den Projekt-Optionen die veränderbare Konstanten zulassen. Das ist dann auch eine einwandfreie statische Variable.

In den neuen Delphi Versionen (afair: ab D2005) gibt es gleichfalls static Variablen - auch hier wird der Präfix "class" verwendet.

Zitat von BDS2006 Hilfe:
Mithilfe einer class var-Deklaration können Sie einen Block von statischen Klassenfeldern innerhalb einer Klassendeklaration erzeugen. Alle nach class var deklarierten Felder haben statische Speicherattribute. Ein class var-Block wird durch Folgendes abgeschlossen:
  • Eine weitere class var-Deklaration
  • Eine Prozedur- oder Funktionsdeklaration (Methodendeklaration) (einschließlich Klassenprozeduren und Klassenfunktionen)
  • Eine Eigenschaftsdeklaration (einschließlich Klasseneigenschaften)
  • Eine Konstruktor- oder Destruktor-Deklaration
  • Ein Sichtbarkeitsattribut (public, private, protected, published, strict private und strict protected)
Ein Beispiel:
Delphi-Quellcode:
 type
   TMyClass = class
     strict private
       class var // Felder müssen als Klassenfelder deklariert werden
          FRed: Integer;
          FGreen: Integer;
          FBlue: Integer;
       public // Ende des class var-Blocks
          class property Red: Integer read FRed write FRed;
          class property Green: Integer read FGreen write FGreen;
          class property Blue: Integer read FBlue write FBlue;
   end;
Auf die obigen Klasseneigenschaften kann folgendermaßen zugegriffen werden:
Delphi-Quellcode:
TMyClass.Red := 0;
TMyClass.Blue := 0;
TMyClass.Green := 0;
  Mit Zitat antworten Zitat