Delphi: Alle Konstanten sind konstant, aber einige sind konstanter als andere?

Question

Bedenken Sie:

const 
    clHotlight: TColor = $00FF9933; 
    clLink = clHotLight; //alias of clHotlight 

[Error] file.pas: Constant expression expected 

und die alternative Formulierung, die funktioniert:

const 
    clHotlight = TColor($00FF9933); 
    clLink = clHotLight; //alias of clHotlight 

Erklären.

---

Dann betrachten:

const 
    AdministratorGUID: TGUID = '{DE44EEA0-6712-11D4-ADD4-0006295717DA}'; 
    SuperuserGUID = AdministratorGUID; //alias of AdministratorGUID 

[Error] file.pas: Constant expression expected 

und beheben.

Bearbeiten: Stichwort const vor Deklarationen hinzugefügt; jemand glaubte nicht, dass sie const waren.

Answer 1

clHotlight: TColor = $00FF9933; ist keine Konstante, sondern eine typisierte Konstante (= statische Variable), d. H. Der Compiler reserviert einen Platz im Speicher für einen TColor, der zur Laufzeit den Wert $00FF9933 enthält.
Weil dieser Wert später geändert werden (mit der zuweisbaren Konst Option ON), ist es nicht eine echte Konstante und nicht in clLink = clHotLight; vom Compiler akzeptiert werden kann

clHotlight = TColor($00FF9933); ist streng die gleiche wie clHotlight = $00FF9933;
Es ist ein wahr ist Konstante und der Compiler ersetzt clHotlight durch seinen Wert $00FF9933, wo immer es im Code erscheint. Und für clLink auch.

liest auf diese Frage SO (In Delphi 7, why can I assign a value to a const?) und all die guten es Antworten ...

EDIT: über TGUID ...
Das Problem ist, dass AdministratorGUID: TGUID = '{DE44EEA0-6712-11D4-ADD4-0006295717DA}'; Schreiben nicht richtig ist.
Es verwendet einige Compiler Magie, StringToGUID hinter der Szene zu rufen, so dass die Bequemlichkeit die GUID als eine Zeichenfolge ausdrücken, die sie nicht von Natur aus sind. Sie sind Aufzeichnungen.

Also, versuchen AdministratorGUID = '{DE44EEA0-6712-11D4-ADD4-0006295717DA}'; wird nicht funktionieren. Das ist kein GUID ...

Eine Abhilfe ist eine typisierte Konstante und Variablen haben auf den gleichen Speicherbereich zeigt die absolute Direktive:

const 
    AdministratorGUID: TGUID = '{DE44EEA0-6712-11D4-ADD4-0006295717DA}'; 
var 
    SuperuserGUID: TGUID absolute AdministratorGUID; //alias of AdministratorGUID 
    RootGUID: TGUID absolute AdministratorGUID;  //alias of AdministratorGUID 

Answer 2

clHotlight: TColor = $00FF9933; 
     ^

bekannt, dass folgende clHotlight als 'Variable' (na ja, ok eine 'belegbare konstant', wenn Sie haben diese Optionen in Compiler erlaubt) mit Hilfe des :.

Wie Sie gefunden haben, erklärt:

clHotlight = TColor($00FF9933); 

macht keine Zuteilung von clHotlight, bis es später angegeben wird.

Das gleiche gilt für Ihre GUID.

Answer 3

hier lesen Understanding Typed Constants in Delphi

Answer 4

ich diesen Code versucht:

const 
    CAnswer1 = 42; 
    CAnswer2 : Integer = 42; 

    var 
    LAnswer : Integer; 

    begin 
    LAnswer := CAnswer1; 
    LAnswer := CAnswer2; 
    end; 

und hier ist der erzeugte Code:

Project9.dpr.18: LAnswer := CAnswer1; 
004101AC C7056C6E41002A00 mov [$00416e6c],$0000002a //<- assign a hard-coded "42" value 
Project9.dpr.19: LAnswer := CAnswer2; 
004101B6 A1701C4100  mov eax,[$00411c70] //<- fetch a variable's content 
004101BB A36C6E4100  mov [$00416e6c],eax //<- assign this content 

Sie haben Recht: einige Konstanten sind beständiger als andere. Die zweite Konstante wird tatsächlich vom Compiler als Variable behandelt.

Answer 5

willkommen zu Delphi Evolution . in delphi 1 & 2, können Sie keine initialen konstanten Wert zu einer globalen var zuweisen (zB: var xVar: Integer = 1). Die einzige Möglichkeit, dies zu tun, ist die Verwendung von const xVar: Integer = 1) und einige Codes, in denen Sie sie ändern können, wenn Sie möchten. Bis sie dieses alte Feature loswerden, können Sie das Konstrukt "const xVar: Integer" nicht als const-Wert verwenden.

Prost A Pham

Answer 6

Das Problem, weil eine Konstante ist nicht wirklich eine Konstante eingegeben entsteht, wie mit unterschiedlichem Grad der Klarheit und Erfolg von anderen erklärt.

Was noch nicht so ist, ist gezeigt, wie das Problem zu arbeiten (in einer großen Anzahl von Fällen), obwohl ein Paar Aufgeben greifbare Nähe kam, dass Geheimnis ... :)

In Ihrem spezieller Fall kann Sie durch die Umkehrung des „Aliasing“ des Wertes und die typisierten konstante Erklärung wie folgt, um das Problem zu bekommen:

const 
    clLink = $00FF9933; 
    clHotlight: TColor = clLink; 

clLink bietet jetzt Ihre wahre konstante und clHotlight ist die typisierte konstante, hat der gleiche Wert wie clLink.

für das die gleiche Technik GUID kann verwendet werden, aber man muss bedenken, den normalen konstanten Ausdruck einen typisierten GUID Konstante initialisieren - es wird nicht eine Aufzeichnung nicht verwendet, sondern eine einfache Zeichenkette, so:

const 
    ID_CONSTANT = '{AA1C8AF2-C290-40AB-9CF5-2888A46E1660}'; 
    GUID_CONSTANT: TGUID = ID_CONSTANT; 

HINWEIS: Solche GUID Konstanten sind perfekt einsetzbar in allen Orten, an denen TGUID ‚s benötigt werden, zB IsEqualGUID (TGUID, GUID_CONSTANT) usw.

Answer 7

Die rechte Seite einer konstanten Erklärung einen „konstanten Ausdruck“ sein muss, die als „ein konstanter Ausdruck definiert ist, ist ein Ausdruck, der Compiler in das Programm ohne Ausführung auswerten wo es auftritt ". Sie können die gesamte akzeptierte Syntax für konstanten Ausdruck im Sprachführer finden. Beachten Sie, dass der Sprachenführer explizit angibt, dass typisierte Konstanten in konstanten Ausdrücken nicht auftreten können. - und deshalb scheitern Ihre Deklarationen, sowohl clHotlight: TColor = $ 00FF9933; und AdministratorGUID: TGUID = ...; sind typisierte Konstanten. Der Konstantenausdruck kann auch keine Funktionsaufrufe mit Ausnahme der im Sprachenführer aufgelisteten enthalten (z. B. Length(), SizeOf() und einige andere), die der Compiler zur Kompilierungszeit berechnen kann.Rewrite auf diese Weise :

const 
    AdminGUID = '{DE44EEA0-6712-11D4-ADD4-0006295717DA}'; 
    AdministratorGUID: TGUID = AdminGUID; 
    SuperuserGUID: TGUID = AdminGUID; 

Und es wird funktionieren.