Konstantenausdruck in Case-Struktur funktioniert nicht

[PeterPanino]

Hallo, wieso führt die Verwendung der Konstante Zahl_Hundert in der Case-Struktur zu einem Fehler E2026 Konstantenausdruck erwartet? Der Bezeichner Zahl_Hundert ist doch als Konstante definiert!?

Delphi-Quellcode:

const
  Zahl_Hundert: Integer = 100;

case ANumber of
  Zahl_Hundert: TuHundert;
  101: TuHunderteins;
  103: TuHundertdrei;
end;

[Fehler]: E2026 Konstantenausdruck erwartet

[fkerber]

Hi!

Afair ist

Delphi-Quellcode:

const
  Zahl_Hundert: Integer = 100;

keine echte Konstante.

Versuche es mal mit

Delphi-Quellcode:

const
  Zahl_Hundert = 100;

Liebe Grüße,
Frederic

[PeterPanino]

Vielen Dank für den Hinweis - es geht wirklich!!! Wieso ist Zahl_Hundert: Integer = 100; keine Konstante, wenn sie unter const geschrieben ist?? Ich habe Konstanten immer so definiert.

Wenn ich Zahl_Hundert: Integer = 100; unter const definiere und danach versuche, dem Ausdruck Zahl_Hundert einen anderen Wert zuzuweisen, so entsteht ein Fehler. Also muss das doch auch eine Konstante sein!

Ich wusste nicht, dass es in Delphi offensichtlich zwei Typen von Konstanten gibt!?

Kann hier jemand etwas Licht ins Dunkel bringen?

[s.h.a.r.k]

Es handelt sich dabei nur um eine schreibgeschützte Variable, die durchaus noch verändert werden kann.

[himitsu]

PS: sowas wurde auch schon mehrmals beantwortet, aber ich geb's zu, es ist nicht "leicht" zu finden und manchmal sogar etwas ausführlicher. (auch wenn ich grad leider das "beste" Thema dazu grade nicht finde) na gut, eines war doch zu finden
http://www.delphipraxis.net/152314-u...klaration.html

[edit]
und vorallem
http://www.delphipraxis.net/152845-const-record.html

[PeterPanino]

Danke für die Hinweise. Ich hatte immer die relativ strenge Typisierung von Delphi im Hinterkopf - aber es ist ja auch wieder logisch, dass bei einer Wertzuweisung in der Konstanten-Deklaration eine Angabe des Wertebereiches unnötig ist. Und außerdem bin ich davon ausgegangen, dass alles, was unter const deklariert wird, auch automatisch eine Konstante ist.

Nur: Hat die Unterscheidung zwischen "echten Konstanten" und "schreibgeschützten Variablen" einen praktischen Grund oder Sinn - d.h. gibt es Anwendungsfälle, wo einmal die Verwendung von "echten Konstanten" und dann wieder die Anwendung von "schreibgeschützten Variablen" angebracht ist? Oder anders ausgedrückt: Was hat Borland (?) sich dabei gedacht, als es diese Unterscheidung einführte?

Toll finde ich übrigens auch diese Konstanten-Anwendung, bei der die Klasse nicht instantiiert werden muss, um sie zu benutzen:

Code:

type
  TClassWithConstant = class
    public 
      const SomeConst = 'This is a class constant';
  end;         

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(TClassWithConstant.SomeConst);
end;

[gammatester]

Typiserte Konstanten sind die einzige Möglichkeit, initialisierte lokale Variable über Funktionesaufrufe zu retten, zB

Delphi-Quellcode:

function myrand: integer:
const
  seed: integer = 7;
begin
  seed := 997*seed;
  myrand := seed;
end;

Borland und Konsorten konnten es natürlich nicht lassen, die Sache zu verkomplizieren und globale var myint: integer = 42; einzuführen (seltsamerweise gibt's diese initialisierten variablen nicht lokal).

[himitsu]

'nen Grund kann ich mir nicht direkt vorstellen, außer die Speicherverwaltung betreffend.

Wobei man dieses vorallem für "schmutzige Tricks angewendet hat.

Delphi-Quellcode:

function test: Integer;
{$J+} // {$WRITEABLECONST ON}
const
  i: Integer = 0;
{$J-} // {$WRITAEBLECONST OFF}
begin
  i := i + 1;
  Result := i;
end;

ShowMessage(IntToStr(Test));
ShowMessage(IntToStr(Test));
ShowMessage(IntToStr(Test));
ShowMessage(IntToStr(Test));

So konnte man auch ohne OOP (private Felder) private und dennoch globale "Variablen" nutzen.

Zitat:

Zitat von PeterPanino (Beitrag 1036794)

Toll finde ich übrigens auch diese Konstanten-Anwendung,

Das geht übrigens auch bei Records.
Und Typen kann man an dieser Stelle auch deklarieren.

Aber wenn du eine Konstante als Pointer übergeben willst/mußt, dann mußt du sie auch typisieren, damit sie nicht als Wert direkt am Verwendungsort eingebaut wird, sondern selber einen eigenen Speicherplatz und festen Typen besitzt.

[xZise]

Moin,
ich habe gerade kein Delphi zur Hand, könnte es aber sein, dass dort ein Unterschied vorhanden ist:

Delphi-Quellcode:

const
  foo = 'Hallo Welt!';
  fooW : UnicodeString = 'Hallo Welt!';
  fooA : AnsiString = 'Hallo Welt!';

Entweder ist foo so groß wie fooW oder wie fooA. Eventuell auf was dazwischen, wenn foo mal mit UTF8 kodiert wird :mrgreen: .

MfG
Fabian

[himitsu]

Der Typ von foo hängt davon ab, an was er übergeben wird.

An eine Variable oder Parameter vom Typ AnsiString, dann wird foo dort als AnsiString verwendet.

Und wird es dann auch noch an eine Variable oder einen Parameter vom Typ UnicodeString übergeben, dann gibt es foo doppelt, da es hier als UnicodeVersion eingefügt wird.

Bzw. Delphi versucht ja an vielen Stellen zu optimieren und würde dann hoffentlich für fooW und die UnicodeVersion von foo den selben "String" verwenden.