Aufzählungstyp und Array: Fehler beim Zugriff per Index

[sonicus83]

Hallo,

bei einem Array aus einem Aufzählungstyp bekomme ich nur Fehler beim Zugriff auf die Elemente (bei "anteil_typ[i_typ] := 0"). Wenn ich im Debugger mir die Variable anteil_typ anschaue, ist hier der Index 0..2 gegeben. Ist dieser Index nur intern oder liegt irgendwo in der Definition der Fehler? Ich komm irgendwie nicht drauf.

Der Fehler: Exception-Klasse $C0000005 mit der Meldung 'c000005 ACCESS_VIOLATION'.

Code:

TAufzaehlungstyp = (tA, tB, tC);

[...]

var
  i_typ: TAufzaehlungstyp ;
  anteil_typ: array[TAufzaehlungstyp] of double;

[...]

  for i_typ:= low(TAufzaehlungstyp) to high(TAufzaehlungstyp) do begin
    anteil_typ[i_typ] := 0;
  end;

Folgendes Beispiel habe ich im Internet gefunden, das sollte doch übertragbar sein?

Code:

type
  TWeekDay = (wdMon, wdTue, wdWed, wdThu, wdFri, wdSat, wdSun);

var
  wd     : TWeekDay;
  Income : array[TWeekDay] of double;
  sum    : double;

begin
sum := 0;
for wd:=wdMon to wdFri do
  sum := sum + Income[wd];
end;

Vielen Dank für jeden Hinweis!