Konstantenausdruck in Case-Struktur funktioniert nicht

[PeterPanino]

Zitat von 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).

Sehr hübsches Beispiel!